;;;; Generated on 5/21/2019 at 13:37:08 (UTC+1).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%CLANSB %CLANSB %%CLANSP %CLANSP %%CLANSY %CLANSY
  %%CLANTB %CLANTB %%CLANTP %CLANTP %%CLANTR %CLANTR %%CLAPLL %CLAPLL %%CLAPMR
  %CLAPMR %%CLAPMT %CLAPMT %%CLAQGB %CLAQGB %%CLAQGE %CLAQGE %%CLAQHB %CLAQHB
  %%CLAQHE %CLAQHE %%CLAQHP %CLAQHP %%CLAQP2 %CLAQP2 %%CLAQPS %CLAQPS %%CLAQR0
  %CLAQR0 %%CLAQR1 %CLAQR1 %%CLAQR2 %CLAQR2 %%CLAQR3 %CLAQR3 %%CLAQR4 %CLAQR4
  %%CLAQR5 %CLAQR5 %%CLAQSB %CLAQSB %%CLAQSP %CLAQSP %%CLAQSY %CLAQSY %%CLAR1V
  %CLAR1V %%CLAR2V %CLAR2V %%CLARCM %CLARCM %%CLARF %CLARF %%CLARFB %CLARFB
  %%CLARFG %CLARFG %%CLARFGP %CLARFGP %%CLARFT %CLARFT %%CLARFX %CLARFX
  %%CLARFY %CLARFY %%CLARGV %CLARGV %%CLARNV %CLARNV %%CLARRV %CLARRV
  %%CLARSCL2 %CLARSCL2 %%CLARTG %CLARTG %%CLARTV %CLARTV %%CLARZ %CLARZ
  %%CLARZB %CLARZB %%CLARZT %CLARZT %%CLASCL %CLASCL %%CLASCL2 %CLASCL2
  %%CLASET %CLASET %%CLASR %CLASR %%CLASSQ %CLASSQ %%CLASWLQ %CLASWLQ %%CLASWP
  %CLASWP %%CLASYF %CLASYF %%CLASYF_AA %CLASYF_AA %%CLASYF_RK %CLASYF_RK
  %%CLASYF_ROOK %CLASYF_ROOK %%CLATBS %CLATBS %%CLATDF %CLATDF %%CLATPS %CLATPS
  %%CLATRD %CLATRD %%CLATRS %CLATRS %%CLATRZ %CLATRZ %%CLATSQR %CLATSQR
  %%CLAUU2 %CLAUU2 %%CLAUUM %CLAUUM %%CPBCON %CPBCON %%CPBEQU %CPBEQU %%CPBRFS
  %CPBRFS %%CPBSTF %CPBSTF %%CPBSV %CPBSV %%CPBSVX %CPBSVX %%CPBTF2 %CPBTF2
  %%CPBTRF %CPBTRF %%CPBTRS %CPBTRS %%CPFTRF %CPFTRF %%CPFTRI %CPFTRI %%CPFTRS
  %CPFTRS %%CPOCON %CPOCON %%CPOEQU %CPOEQU %%CPOEQUB %CPOEQUB %%CPORFS %CPORFS
  %%CPORFSX %CPORFSX %%CPOSV %CPOSV %%CPOSVX %CPOSVX %%CPOSVXX %CPOSVXX
  %%CPOTF2 %CPOTF2 %%CPOTRF %CPOTRF %%CPOTRF2 %CPOTRF2 %%CPOTRI %CPOTRI
  %%CPOTRS %CPOTRS %%CPPCON %CPPCON %%CPPEQU %CPPEQU %%CPPRFS %CPPRFS %%CPPSV
  %CPPSV %%CPPSVX %CPPSVX %%CPPTRF %CPPTRF %%CPPTRI %CPPTRI %%CPPTRS %CPPTRS
  %%CPSTF2 %CPSTF2 %%CPSTRF %CPSTRF %%CPTCON %CPTCON %%CPTEQR %CPTEQR %%CPTRFS
  %CPTRFS %%CPTSV %CPTSV %%CPTSVX %CPTSVX %%CPTTRF %CPTTRF %%CPTTRS %CPTTRS
  %%CPTTS2 %CPTTS2 %%CROT %CROT %%CSPCON %CSPCON %%CSPMV %CSPMV %%CSPR %CSPR
  %%CSPRFS %CSPRFS %%CSPSV %CSPSV %%CSPSVX %CSPSVX %%CSPTRF %CSPTRF %%CSPTRI
  %CSPTRI %%CSPTRS %CSPTRS %%CSRSCL %CSRSCL %%CSTEDC %CSTEDC %%CSTEGR %CSTEGR
  %%CSTEIN %CSTEIN %%CSTEMR %CSTEMR %%CSTEQR %CSTEQR %%CSYCON %CSYCON
  %%CSYCON_3 %CSYCON_3 %%CSYCON_ROOK %CSYCON_ROOK %%CSYCONV %CSYCONV %%CSYCONVF
  %CSYCONVF %%CSYCONVF_ROOK %CSYCONVF_ROOK %%CSYEQUB %CSYEQUB %%CSYMV %CSYMV
  %%CSYR %CSYR %%CSYRFS %CSYRFS %%CSYRFSX %CSYRFSX %%CSYSV %CSYSV %%CSYSV_AA
  %CSYSV_AA %%CSYSV_AA_2STAGE %CSYSV_AA_2STAGE %%CSYSV_RK %CSYSV_RK
  %%CSYSV_ROOK %CSYSV_ROOK %%CSYSVX %CSYSVX %%CSYSVXX %CSYSVXX %%CSYSWAPR
  %CSYSWAPR %%CSYTF2 %CSYTF2 %%CSYTF2_RK %CSYTF2_RK %%CSYTF2_ROOK %CSYTF2_ROOK
  %%CSYTRF %CSYTRF %%CSYTRF_AA %CSYTRF_AA %%CSYTRF_AA_2STAGE %CSYTRF_AA_2STAGE
  %%CSYTRF_RK %CSYTRF_RK %%CSYTRF_ROOK %CSYTRF_ROOK %%CSYTRI %CSYTRI %%CSYTRI2
  %CSYTRI2 %%CSYTRI2X %CSYTRI2X %%CSYTRI_3 %CSYTRI_3 %%CSYTRI_3X %CSYTRI_3X
  %%CSYTRI_ROOK %CSYTRI_ROOK %%CSYTRS %CSYTRS %%CSYTRS2 %CSYTRS2 %%CSYTRS_3
  %CSYTRS_3 %%CSYTRS_AA %CSYTRS_AA %%CSYTRS_AA_2STAGE %CSYTRS_AA_2STAGE
  %%CSYTRS_ROOK %CSYTRS_ROOK %%CTBCON %CTBCON %%CTBRFS %CTBRFS %%CTBTRS %CTBTRS
  %%CTFSM %CTFSM %%CTFTRI %CTFTRI %%CTFTTP %CTFTTP %%CTFTTR %CTFTTR %%CTGEVC
  %CTGEVC %%CTGEX2 %CTGEX2 %%CTGEXC %CTGEXC %%CTGSEN %CTGSEN %%CTGSJA %CTGSJA
  %%CTGSNA %CTGSNA %%CTGSY2 %CTGSY2 %%CTGSYL %CTGSYL %%CTPCON %CTPCON %%CTPLQT
  %CTPLQT %%CTPLQT2 %CTPLQT2 %%CTPMLQT %CTPMLQT %%CTPMQRT %CTPMQRT %%CTPQRT
  %CTPQRT %%CTPQRT2 %CTPQRT2 %%CTPRFB %CTPRFB %%CTPRFS %CTPRFS %%CTPTRI %CTPTRI
  %%CTPTRS %CTPTRS %%CTPTTF %CTPTTF %%CTPTTR %CTPTTR %%CTRCON %CTRCON %%CTREVC
  %CTREVC %%CTREVC3 %CTREVC3 %%CTREXC %CTREXC %%CTRRFS %CTRRFS %%CTRSEN %CTRSEN
  %%CTRSNA %CTRSNA %%CTRSYL %CTRSYL %%CTRTI2 %CTRTI2 %%CTRTRI %CTRTRI %%CTRTRS
  %CTRTRS %%CTRTTF %CTRTTF %%CTRTTP %CTRTTP %%CTZRZF %CTZRZF %%CUNBDB %CUNBDB
  %%CUNBDB1 %CUNBDB1 %%CUNBDB2 %CUNBDB2 %%CUNBDB3 %CUNBDB3 %%CUNBDB4 %CUNBDB4
  %%CUNBDB5 %CUNBDB5 %%CUNBDB6 %CUNBDB6 %%CUNCSD %CUNCSD %%CUNCSD2BY1
  %CUNCSD2BY1 %%CUNG2L %CUNG2L %%CUNG2R %CUNG2R %%CUNGBR %CUNGBR %%CUNGHR
  %CUNGHR %%CUNGL2 %CUNGL2 %%CUNGLQ %CUNGLQ %%CUNGQL %CUNGQL %%CUNGQR %CUNGQR
  %%CUNGR2 %CUNGR2 %%CUNGRQ %CUNGRQ %%CUNGTR %CUNGTR %%CUNM22 %CUNM22 %%CUNM2L
  %CUNM2L %%CUNM2R %CUNM2R %%CUNMBR %CUNMBR %%CUNMHR %CUNMHR %%CUNML2 %CUNML2
  %%CUNMLQ %CUNMLQ %%CUNMQL %CUNMQL %%CUNMQR %CUNMQR %%CUNMR2 %CUNMR2 %%CUNMR3
  %CUNMR3 %%CUNMRQ %CUNMRQ %%CUNMRZ %CUNMRZ %%CUNMTR %CUNMTR %%CUPGTR %CUPGTR
  %%CUPMTR %CUPMTR %%DBBCSD %DBBCSD %%DBDSDC %DBDSDC %%DBDSQR %DBDSQR %%DBDSVDX
  %DBDSVDX %%DCOMBSSQ %DCOMBSSQ %%DDISNA %DDISNA))

(CFFI:DEFCFUN ("clansb_" %%CLANSB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANSB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANSB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3210 ':INT32) (K-REF3211 ':INT32)
                              (LDAB-REF3213 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3210 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3211 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3213 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3212 AB) (WORK-REF3214 WORK))
      (%%CLANSB NORM UPLO N-REF3210 K-REF3211 AB-REF3212 LDAB-REF3213
                WORK-REF3214))))

(CFFI:DEFCFUN ("clansp_" %%CLANSP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANSP (NORM UPLO N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANSP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3217 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3217 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3218 AP) (WORK-REF3219 WORK))
      (%%CLANSP NORM UPLO N-REF3217 AP-REF3218 WORK-REF3219))))

(CFFI:DEFCFUN ("clansy_" %%CLANSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANSY (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANSY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3222 ':INT32) (LDA-REF3224 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3222 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3224 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3223 A) (WORK-REF3225 WORK))
      (%%CLANSY NORM UPLO N-REF3222 A-REF3223 LDA-REF3224 WORK-REF3225))))

(CFFI:DEFCFUN ("clantb_" %%CLANTB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANTB (NORM UPLO DIAG N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANTB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3229 ':INT32) (K-REF3230 ':INT32)
                              (LDAB-REF3232 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3229 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3230 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3232 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3231 AB) (WORK-REF3233 WORK))
      (%%CLANTB NORM UPLO DIAG N-REF3229 K-REF3230 AB-REF3231 LDAB-REF3232
                WORK-REF3233))))

(CFFI:DEFCFUN ("clantp_" %%CLANTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANTP (NORM UPLO DIAG N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3237 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3237 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3238 AP) (WORK-REF3239 WORK))
      (%%CLANTP NORM UPLO DIAG N-REF3237 AP-REF3238 WORK-REF3239))))

(CFFI:DEFCFUN ("clantr_" %%CLANTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLANTR (NORM UPLO DIAG M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3243 ':INT32) (N-REF3244 ':INT32)
                              (LDA-REF3246 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3243 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3244 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3246 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3245 A) (WORK-REF3247 WORK))
      (%%CLANTR NORM UPLO DIAG M-REF3243 N-REF3244 A-REF3245 LDA-REF3246
                WORK-REF3247))))

(CFFI:DEFCFUN ("clapll_" %%CLAPLL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (SSMIN :POINTER))

(COMMON-LISP:DEFUN %CLAPLL (N X INCX Y INCY SSMIN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAPLL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMIN))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3248 ':INT32) (INCX-REF3250 ':INT32)
                              (INCY-REF3252 ':INT32) (SSMIN-REF3253 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3248 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3250 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF3252 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF3253 :FLOAT) SSMIN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3249 X) (Y-REF3251 Y))
      (%%CLAPLL N-REF3248 X-REF3249 INCX-REF3250 Y-REF3251 INCY-REF3252
                SSMIN-REF3253))))

(CFFI:DEFCFUN ("clapmr_" %%CLAPMR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FORWRD :POINTER)
  (M :POINTER)
  (N :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (K :POINTER))

(COMMON-LISP:DEFUN %CLAPMR (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAPMR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF3254 ':INT32) (M-REF3255 ':INT32)
                              (N-REF3256 ':INT32) (LDX-REF3258 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF3254 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3255 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3256 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3258 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3257 X) (K-REF3259 K))
      (%%CLAPMR FORWRD-REF3254 M-REF3255 N-REF3256 X-REF3257 LDX-REF3258
                K-REF3259))))

(CFFI:DEFCFUN ("clapmt_" %%CLAPMT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FORWRD :POINTER)
  (M :POINTER)
  (N :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (K :POINTER))

(COMMON-LISP:DEFUN %CLAPMT (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAPMT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF3260 ':INT32) (M-REF3261 ':INT32)
                              (N-REF3262 ':INT32) (LDX-REF3264 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF3260 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3261 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3262 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3264 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3263 X) (K-REF3265 K))
      (%%CLAPMT FORWRD-REF3260 M-REF3261 N-REF3262 X-REF3263 LDX-REF3264
                K-REF3265))))

(CFFI:DEFCFUN ("claqgb_" %%CLAQGB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %CLAQGB (M N KL KU AB LDAB R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQGB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3266 ':INT32) (N-REF3267 ':INT32)
                              (KL-REF3268 ':INT32) (KU-REF3269 ':INT32)
                              (LDAB-REF3271 ':INT32) (ROWCND-REF3274 ':FLOAT)
                              (COLCND-REF3275 ':FLOAT) (AMAX-REF3276 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3266 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3267 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF3268 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF3269 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3271 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF3274 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF3275 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3276 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3270 AB) (R-REF3272 R)
                                            (C-REF3273 C))
      (%%CLAQGB M-REF3266 N-REF3267 KL-REF3268 KU-REF3269 AB-REF3270
                LDAB-REF3271 R-REF3272 C-REF3273 ROWCND-REF3274 COLCND-REF3275
                AMAX-REF3276 EQUED))))

(CFFI:DEFCFUN ("claqge_" %%CLAQGE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %CLAQGE (M N A LDA R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3278 ':INT32) (N-REF3279 ':INT32)
                              (LDA-REF3281 ':INT32) (ROWCND-REF3284 ':FLOAT)
                              (COLCND-REF3285 ':FLOAT) (AMAX-REF3286 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3278 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3279 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3281 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF3284 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF3285 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3286 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3280 A) (R-REF3282 R)
                                            (C-REF3283 C))
      (%%CLAQGE M-REF3278 N-REF3279 A-REF3280 LDA-REF3281 R-REF3282 C-REF3283
                ROWCND-REF3284 COLCND-REF3285 AMAX-REF3286 EQUED))))

(CFFI:DEFCFUN ("claqhb_" %%CLAQHB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %CLAQHB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQHB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3289 ':INT32) (KD-REF3290 ':INT32)
                              (LDAB-REF3292 ':INT32) (SCOND-REF3294 ':FLOAT)
                              (AMAX-REF3295 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3289 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3290 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3292 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3294 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3295 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3291 AB) (S-REF3293 S))
      (%%CLAQHB UPLO N-REF3289 KD-REF3290 AB-REF3291 LDAB-REF3292 S-REF3293
                SCOND-REF3294 AMAX-REF3295 EQUED))))

(CFFI:DEFCFUN ("claqhe_" %%CLAQHE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %CLAQHE (UPLO N A LDA S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQHE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3298 ':INT32) (LDA-REF3300 ':INT32)
                              (SCOND-REF3302 ':FLOAT) (AMAX-REF3303 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3298 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3300 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3302 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3303 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3299 A) (S-REF3301 S))
      (%%CLAQHE UPLO N-REF3298 A-REF3299 LDA-REF3300 S-REF3301 SCOND-REF3302
                AMAX-REF3303 EQUED))))

(CFFI:DEFCFUN ("claqhp_" %%CLAQHP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %CLAQHP (UPLO N AP S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQHP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3306 ':INT32) (SCOND-REF3309 ':FLOAT)
                              (AMAX-REF3310 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3306 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3309 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3310 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3307 AP) (S-REF3308 S))
      (%%CLAQHP UPLO N-REF3306 AP-REF3307 S-REF3308 SCOND-REF3309 AMAX-REF3310
                EQUED))))

(CFFI:DEFCFUN ("claqp2_" %%CLAQP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (OFFSET :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (VN1 :POINTER)
  (VN2 :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLAQP2 (M N OFFSET A LDA JPVT TAU VN1 VN2 WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQP2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VN1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VN2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3312 ':INT32) (N-REF3313 ':INT32)
                              (OFFSET-REF3314 ':INT32) (LDA-REF3316 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3312 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3313 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF3314 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3316 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3315 A) (JPVT-REF3317 JPVT)
                                            (TAU-REF3318 TAU) (VN1-REF3319 VN1)
                                            (VN2-REF3320 VN2)
                                            (WORK-REF3321 WORK))
      (%%CLAQP2 M-REF3312 N-REF3313 OFFSET-REF3314 A-REF3315 LDA-REF3316
                JPVT-REF3317 TAU-REF3318 VN1-REF3319 VN2-REF3320
                WORK-REF3321))))

(CFFI:DEFCFUN ("claqps_" %%CLAQPS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (OFFSET :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (VN1 :POINTER)
  (VN2 :POINTER)
  (AUXV :POINTER)
  (F :POINTER)
  (LDF :POINTER))

(COMMON-LISP:DEFUN %CLAQPS (M N OFFSET NB KB A LDA JPVT TAU VN1 VN2 AUXV F LDF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQPS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VN1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VN2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AUXV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3322 ':INT32) (N-REF3323 ':INT32)
                              (OFFSET-REF3324 ':INT32) (NB-REF3325 ':INT32)
                              (KB-REF3326 ':INT32) (LDA-REF3328 ':INT32)
                              (LDF-REF3335 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3322 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3323 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF3324 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3325 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3326 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3328 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF3335 :INT32) LDF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3327 A) (JPVT-REF3329 JPVT)
                                            (TAU-REF3330 TAU) (VN1-REF3331 VN1)
                                            (VN2-REF3332 VN2)
                                            (AUXV-REF3333 AUXV) (F-REF3334 F))
      (%%CLAQPS M-REF3322 N-REF3323 OFFSET-REF3324 NB-REF3325 KB-REF3326
                A-REF3327 LDA-REF3328 JPVT-REF3329 TAU-REF3330 VN1-REF3331
                VN2-REF3332 AUXV-REF3333 F-REF3334 LDF-REF3335))))

(CFFI:DEFCFUN ("claqr0_" %%CLAQR0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAQR0
                   (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3336 ':INT32) (WANTZ-REF3337 ':INT32)
                              (N-REF3338 ':INT32) (ILO-REF3339 ':INT32)
                              (IHI-REF3340 ':INT32) (LDH-REF3342 ':INT32)
                              (ILOZ-REF3344 ':INT32) (IHIZ-REF3345 ':INT32)
                              (LDZ-REF3347 ':INT32) (LWORK-REF3349 ':INT32)
                              (INFO-REF3350 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3336 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3337 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3338 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF3339 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF3340 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3342 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3344 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3345 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3347 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3349 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3350 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3341 H) (W-REF3343 W)
                                            (Z-REF3346 Z) (WORK-REF3348 WORK))
      (%%CLAQR0 WANTT-REF3336 WANTZ-REF3337 N-REF3338 ILO-REF3339 IHI-REF3340
                H-REF3341 LDH-REF3342 W-REF3343 ILOZ-REF3344 IHIZ-REF3345
                Z-REF3346 LDZ-REF3347 WORK-REF3348 LWORK-REF3349
                INFO-REF3350))))

(CFFI:DEFCFUN ("claqr1_" %%CLAQR1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (S1 :POINTER)
  (S2 :POINTER)
  (V :POINTER))

(COMMON-LISP:DEFUN %CLAQR1 (N H LDH S1 S2 V)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3351 ':INT32) (LDH-REF3353 ':INT32)
                              (S1-REF3354
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (S2-REF3355
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3351 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3353 :INT32) LDH)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S1-REF3354 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S2-REF3355 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S2)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S2)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3352 H) (V-REF3356 V))
      (%%CLAQR1 N-REF3351 H-REF3352 LDH-REF3353 S1-REF3354 S2-REF3355
                V-REF3356))))

(CFFI:DEFCFUN ("claqr2_" %%CLAQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NW :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NS :POINTER)
  (ND :POINTER)
  (SH :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %CLAQR2
                   (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SH V
                    LDV NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        SH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3357 ':INT32) (WANTZ-REF3358 ':INT32)
                              (N-REF3359 ':INT32) (KTOP-REF3360 ':INT32)
                              (KBOT-REF3361 ':INT32) (NW-REF3362 ':INT32)
                              (LDH-REF3364 ':INT32) (ILOZ-REF3365 ':INT32)
                              (IHIZ-REF3366 ':INT32) (LDZ-REF3368 ':INT32)
                              (NS-REF3369 ':INT32) (ND-REF3370 ':INT32)
                              (LDV-REF3373 ':INT32) (NH-REF3374 ':INT32)
                              (LDT-REF3376 ':INT32) (NV-REF3377 ':INT32)
                              (LDWV-REF3379 ':INT32) (LWORK-REF3381 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3357 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3358 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3359 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF3360 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF3361 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF3362 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3364 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3365 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3366 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3368 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF3369 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF3370 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3373 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF3374 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3376 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF3377 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF3379 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3381 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3363 H) (Z-REF3367 Z)
                                            (SH-REF3371 SH) (V-REF3372 V)
                                            (T-REF3375 T) (WV-REF3378 WV)
                                            (WORK-REF3380 WORK))
      (%%CLAQR2 WANTT-REF3357 WANTZ-REF3358 N-REF3359 KTOP-REF3360 KBOT-REF3361
                NW-REF3362 H-REF3363 LDH-REF3364 ILOZ-REF3365 IHIZ-REF3366
                Z-REF3367 LDZ-REF3368 NS-REF3369 ND-REF3370 SH-REF3371
                V-REF3372 LDV-REF3373 NH-REF3374 T-REF3375 LDT-REF3376
                NV-REF3377 WV-REF3378 LDWV-REF3379 WORK-REF3380
                LWORK-REF3381))))

(CFFI:DEFCFUN ("claqr3_" %%CLAQR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NW :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NS :POINTER)
  (ND :POINTER)
  (SH :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %CLAQR3
                   (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SH V
                    LDV NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        SH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3382 ':INT32) (WANTZ-REF3383 ':INT32)
                              (N-REF3384 ':INT32) (KTOP-REF3385 ':INT32)
                              (KBOT-REF3386 ':INT32) (NW-REF3387 ':INT32)
                              (LDH-REF3389 ':INT32) (ILOZ-REF3390 ':INT32)
                              (IHIZ-REF3391 ':INT32) (LDZ-REF3393 ':INT32)
                              (NS-REF3394 ':INT32) (ND-REF3395 ':INT32)
                              (LDV-REF3398 ':INT32) (NH-REF3399 ':INT32)
                              (LDT-REF3401 ':INT32) (NV-REF3402 ':INT32)
                              (LDWV-REF3404 ':INT32) (LWORK-REF3406 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3382 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3383 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3384 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF3385 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF3386 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF3387 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3389 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3390 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3391 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3393 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF3394 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF3395 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3398 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF3399 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3401 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF3402 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF3404 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3406 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3388 H) (Z-REF3392 Z)
                                            (SH-REF3396 SH) (V-REF3397 V)
                                            (T-REF3400 T) (WV-REF3403 WV)
                                            (WORK-REF3405 WORK))
      (%%CLAQR3 WANTT-REF3382 WANTZ-REF3383 N-REF3384 KTOP-REF3385 KBOT-REF3386
                NW-REF3387 H-REF3388 LDH-REF3389 ILOZ-REF3390 IHIZ-REF3391
                Z-REF3392 LDZ-REF3393 NS-REF3394 ND-REF3395 SH-REF3396
                V-REF3397 LDV-REF3398 NH-REF3399 T-REF3400 LDT-REF3401
                NV-REF3402 WV-REF3403 LDWV-REF3404 WORK-REF3405
                LWORK-REF3406))))

(CFFI:DEFCFUN ("claqr4_" %%CLAQR4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAQR4
                   (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3407 ':INT32) (WANTZ-REF3408 ':INT32)
                              (N-REF3409 ':INT32) (ILO-REF3410 ':INT32)
                              (IHI-REF3411 ':INT32) (LDH-REF3413 ':INT32)
                              (ILOZ-REF3415 ':INT32) (IHIZ-REF3416 ':INT32)
                              (LDZ-REF3418 ':INT32) (LWORK-REF3420 ':INT32)
                              (INFO-REF3421 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3407 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3408 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3409 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF3410 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF3411 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3413 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3415 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3416 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3418 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3420 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3421 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3412 H) (W-REF3414 W)
                                            (Z-REF3417 Z) (WORK-REF3419 WORK))
      (%%CLAQR4 WANTT-REF3407 WANTZ-REF3408 N-REF3409 ILO-REF3410 IHI-REF3411
                H-REF3412 LDH-REF3413 W-REF3414 ILOZ-REF3415 IHIZ-REF3416
                Z-REF3417 LDZ-REF3418 WORK-REF3419 LWORK-REF3420
                INFO-REF3421))))

(CFFI:DEFCFUN ("claqr5_" %%CLAQR5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (KACC22 :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NSHFTS :POINTER)
  (S :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (NH :POINTER)
  (WH :POINTER)
  (LDWH :POINTER))

(COMMON-LISP:DEFUN %CLAQR5
                   (WANTT WANTZ KACC22 N KTOP KBOT NSHFTS S H LDH ILOZ IHIZ Z
                    LDZ V LDV U LDU NV WV LDWV NH WH LDWH)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KACC22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSHFTS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWH))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3422 ':INT32) (WANTZ-REF3423 ':INT32)
                              (KACC22-REF3424 ':INT32) (N-REF3425 ':INT32)
                              (KTOP-REF3426 ':INT32) (KBOT-REF3427 ':INT32)
                              (NSHFTS-REF3428 ':INT32) (LDH-REF3431 ':INT32)
                              (ILOZ-REF3432 ':INT32) (IHIZ-REF3433 ':INT32)
                              (LDZ-REF3435 ':INT32) (LDV-REF3437 ':INT32)
                              (LDU-REF3439 ':INT32) (NV-REF3440 ':INT32)
                              (LDWV-REF3442 ':INT32) (NH-REF3443 ':INT32)
                              (LDWH-REF3445 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3422 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3423 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF3424 :INT32) KACC22)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3425 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF3426 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF3427 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF3428 :INT32) NSHFTS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3431 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3432 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3433 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3435 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3437 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF3439 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF3440 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF3442 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF3443 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF3445 :INT32) LDWH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((S-REF3429 S) (H-REF3430 H)
                                            (Z-REF3434 Z) (V-REF3436 V)
                                            (U-REF3438 U) (WV-REF3441 WV)
                                            (WH-REF3444 WH))
      (%%CLAQR5 WANTT-REF3422 WANTZ-REF3423 KACC22-REF3424 N-REF3425
                KTOP-REF3426 KBOT-REF3427 NSHFTS-REF3428 S-REF3429 H-REF3430
                LDH-REF3431 ILOZ-REF3432 IHIZ-REF3433 Z-REF3434 LDZ-REF3435
                V-REF3436 LDV-REF3437 U-REF3438 LDU-REF3439 NV-REF3440
                WV-REF3441 LDWV-REF3442 NH-REF3443 WH-REF3444 LDWH-REF3445))))

(CFFI:DEFCFUN ("claqsb_" %%CLAQSB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %CLAQSB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQSB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3447 ':INT32) (KD-REF3448 ':INT32)
                              (LDAB-REF3450 ':INT32) (SCOND-REF3452 ':FLOAT)
                              (AMAX-REF3453 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3447 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3448 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3450 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3452 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3453 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3449 AB) (S-REF3451 S))
      (%%CLAQSB UPLO N-REF3447 KD-REF3448 AB-REF3449 LDAB-REF3450 S-REF3451
                SCOND-REF3452 AMAX-REF3453 EQUED))))

(CFFI:DEFCFUN ("claqsp_" %%CLAQSP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %CLAQSP (UPLO N AP S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQSP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3456 ':INT32) (SCOND-REF3459 ':FLOAT)
                              (AMAX-REF3460 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3456 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3459 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3460 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3457 AP) (S-REF3458 S))
      (%%CLAQSP UPLO N-REF3456 AP-REF3457 S-REF3458 SCOND-REF3459 AMAX-REF3460
                EQUED))))

(CFFI:DEFCFUN ("claqsy_" %%CLAQSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %CLAQSY (UPLO N A LDA S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQSY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3463 ':INT32) (LDA-REF3465 ':INT32)
                              (SCOND-REF3467 ':FLOAT) (AMAX-REF3468 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3463 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3465 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3467 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3468 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3464 A) (S-REF3466 S))
      (%%CLAQSY UPLO N-REF3463 A-REF3464 LDA-REF3465 S-REF3466 SCOND-REF3467
                AMAX-REF3468 EQUED))))

(CFFI:DEFCFUN ("clar1v_" %%CLAR1V :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (B1 :POINTER)
  (BN :POINTER)
  (LAMBDA :POINTER)
  (D :POINTER)
  (L :POINTER)
  (LD :POINTER)
  (LLD :POINTER)
  (PIVMIN :POINTER)
  (GAPTOL :POINTER)
  (Z :POINTER)
  (WANTNC :POINTER)
  (NEGCNT :POINTER)
  (ZTZ :POINTER)
  (MINGMA :POINTER)
  (R :POINTER)
  (ISUPPZ :POINTER)
  (NRMINV :POINTER)
  (RESID :POINTER)
  (RQCORR :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLAR1V
                   (N B1 BN LAMBDA D L LD LLD PIVMIN GAPTOL Z WANTNC NEGCNT ZTZ
                    MINGMA R ISUPPZ NRMINV RESID RQCORR WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAR1V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) B1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) BN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT LAMBDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) LD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LLD)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT GAPTOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTNC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NEGCNT)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ZTZ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT MINGMA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT NRMINV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RESID)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RQCORR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3470 ':INT32) (B1-REF3471 ':INT32)
                              (BN-REF3472 ':INT32) (LAMBDA-REF3473 ':FLOAT)
                              (PIVMIN-REF3478 ':FLOAT) (GAPTOL-REF3479 ':FLOAT)
                              (WANTNC-REF3481 ':INT32) (NEGCNT-REF3482 ':INT32)
                              (ZTZ-REF3483 ':FLOAT) (MINGMA-REF3484 ':FLOAT)
                              (R-REF3485 ':INT32) (NRMINV-REF3487 ':FLOAT)
                              (RESID-REF3488 ':FLOAT) (RQCORR-REF3489 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3470 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF3471 :INT32) B1)
    (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF3472 :INT32) BN)
    (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF3473 :FLOAT) LAMBDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF3478 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF3479 :FLOAT) GAPTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF3481 :INT32) WANTNC)
    (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF3482 :INT32) NEGCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF3483 :FLOAT) ZTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF3484 :FLOAT) MINGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF3485 :INT32) R)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF3487 :FLOAT) NRMINV)
    (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF3488 :FLOAT) RESID)
    (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF3489 :FLOAT) RQCORR)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3474 D) (L-REF3475 L)
                                            (LD-REF3476 LD) (LLD-REF3477 LLD)
                                            (Z-REF3480 Z)
                                            (ISUPPZ-REF3486 ISUPPZ)
                                            (WORK-REF3490 WORK))
      (%%CLAR1V N-REF3470 B1-REF3471 BN-REF3472 LAMBDA-REF3473 D-REF3474
                L-REF3475 LD-REF3476 LLD-REF3477 PIVMIN-REF3478 GAPTOL-REF3479
                Z-REF3480 WANTNC-REF3481 NEGCNT-REF3482 ZTZ-REF3483
                MINGMA-REF3484 R-REF3485 ISUPPZ-REF3486 NRMINV-REF3487
                RESID-REF3488 RQCORR-REF3489 WORK-REF3490))))

(CFFI:DEFCFUN ("clar2v_" %%CLAR2V :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (Z :POINTER)
  (INCX :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %CLAR2V (N X Y Z INCX C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAR2V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3491 ':INT32) (INCX-REF3495 ':INT32)
                              (INCC-REF3498 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3491 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3495 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF3498 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3492 X) (Y-REF3493 Y)
                                            (Z-REF3494 Z) (C-REF3496 C)
                                            (S-REF3497 S))
      (%%CLAR2V N-REF3491 X-REF3492 Y-REF3493 Z-REF3494 INCX-REF3495 C-REF3496
                S-REF3497 INCC-REF3498))))

(CFFI:DEFCFUN ("clarcm_" %%CLARCM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %CLARCM (M N A LDA B LDB C LDC RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARCM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3499 ':INT32) (N-REF3500 ':INT32)
                              (LDA-REF3502 ':INT32) (LDB-REF3504 ':INT32)
                              (LDC-REF3506 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3499 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3500 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3502 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3504 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3506 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3501 A) (B-REF3503 B)
                                            (C-REF3505 C) (RWORK-REF3507 RWORK))
      (%%CLARCM M-REF3499 N-REF3500 A-REF3501 LDA-REF3502 B-REF3503 LDB-REF3504
                C-REF3505 LDC-REF3506 RWORK-REF3507))))

(CFFI:DEFCFUN ("clarf_" %%CLARF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLARF (SIDE M N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3509 ':INT32) (N-REF3510 ':INT32)
                              (INCV-REF3512 ':INT32)
                              (TAU-REF3513
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF3515 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3509 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3510 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF3512 :INT32) INCV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF3513
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3515 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3511 V) (C-REF3514 C)
                                            (WORK-REF3516 WORK))
      (%%CLARF SIDE M-REF3509 N-REF3510 V-REF3511 INCV-REF3512 TAU-REF3513
               C-REF3514 LDC-REF3515 WORK-REF3516))))

(CFFI:DEFCFUN ("clarfb_" %%CLARFB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %CLARFB
                   (SIDE TRANS DIRECT STOREV M N K V LDV T LDT C LDC WORK
                    LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3521 ':INT32) (N-REF3522 ':INT32)
                              (K-REF3523 ':INT32) (LDV-REF3525 ':INT32)
                              (LDT-REF3527 ':INT32) (LDC-REF3529 ':INT32)
                              (LDWORK-REF3531 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3521 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3522 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3523 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3525 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3527 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3529 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF3531 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3524 V) (T-REF3526 T)
                                            (C-REF3528 C) (WORK-REF3530 WORK))
      (%%CLARFB SIDE TRANS DIRECT STOREV M-REF3521 N-REF3522 K-REF3523
                V-REF3524 LDV-REF3525 T-REF3526 LDT-REF3527 C-REF3528
                LDC-REF3529 WORK-REF3530 LDWORK-REF3531))))

(CFFI:DEFCFUN ("clarfg_" %%CLARFG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %CLARFG (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARFG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3532 ':INT32)
                              (ALPHA-REF3533
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF3535 ':INT32)
                              (TAU-REF3536
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3532 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF3533
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3535 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF3536
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3534 X))
      (%%CLARFG N-REF3532 ALPHA-REF3533 X-REF3534 INCX-REF3535 TAU-REF3536))))

(CFFI:DEFCFUN ("clarfgp_" %%CLARFGP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %CLARFGP (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARFGP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3537 ':INT32)
                              (ALPHA-REF3538
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF3540 ':INT32)
                              (TAU-REF3541
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3537 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF3538
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3540 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF3541
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3539 X))
      (%%CLARFGP N-REF3537 ALPHA-REF3538 X-REF3539 INCX-REF3540 TAU-REF3541))))

(CFFI:DEFCFUN ("clarft_" %%CLARFT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (DIRECT :STRING)
  (STOREV :STRING)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER))

(COMMON-LISP:DEFUN %CLARFT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARFT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3544 ':INT32) (K-REF3545 ':INT32)
                              (LDV-REF3547 ':INT32) (LDT-REF3550 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3544 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3545 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3547 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3550 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3546 V) (TAU-REF3548 TAU)
                                            (T-REF3549 T))
      (%%CLARFT DIRECT STOREV N-REF3544 K-REF3545 V-REF3546 LDV-REF3547
                TAU-REF3548 T-REF3549 LDT-REF3550))))

(CFFI:DEFCFUN ("clarfx_" %%CLARFX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (V :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLARFX (SIDE M N V TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARFX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3552 ':INT32) (N-REF3553 ':INT32)
                              (TAU-REF3555
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF3557 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3552 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3553 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF3555
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3557 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3554 V) (C-REF3556 C)
                                            (WORK-REF3558 WORK))
      (%%CLARFX SIDE M-REF3552 N-REF3553 V-REF3554 TAU-REF3555 C-REF3556
                LDC-REF3557 WORK-REF3558))))

(CFFI:DEFCFUN ("clarfy_" %%CLARFY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLARFY (UPLO N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARFY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3560 ':INT32) (INCV-REF3562 ':INT32)
                              (TAU-REF3563
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF3565 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3560 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF3562 :INT32) INCV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF3563
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3565 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3561 V) (C-REF3564 C)
                                            (WORK-REF3566 WORK))
      (%%CLARFY UPLO N-REF3560 V-REF3561 INCV-REF3562 TAU-REF3563 C-REF3564
                LDC-REF3565 WORK-REF3566))))

(CFFI:DEFCFUN ("clargv_" %%CLARGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %CLARGV (N X INCX Y INCY C INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3567 ':INT32) (INCX-REF3569 ':INT32)
                              (INCY-REF3571 ':INT32) (INCC-REF3573 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3567 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3569 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF3571 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF3573 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3568 X) (Y-REF3570 Y)
                                            (C-REF3572 C))
      (%%CLARGV N-REF3567 X-REF3568 INCX-REF3569 Y-REF3570 INCY-REF3571
                C-REF3572 INCC-REF3573))))

(CFFI:DEFCFUN ("clarnv_" %%CLARNV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (IDIST :POINTER)
  (ISEED :POINTER)
  (N :POINTER)
  (X :POINTER))

(COMMON-LISP:DEFUN %CLARNV (IDIST ISEED N X)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARNV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IDIST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISEED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X))
  (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF3574 ':INT32) (N-REF3576 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF3574 :INT32) IDIST)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3576 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF3575 ISEED) (X-REF3577 X))
      (%%CLARNV IDIST-REF3574 ISEED-REF3575 N-REF3576 X-REF3577))))

(CFFI:DEFCFUN ("clarrv_" %%CLARRV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (D :POINTER)
  (L :POINTER)
  (PIVMIN :POINTER)
  (ISPLIT :POINTER)
  (M :POINTER)
  (DOL :POINTER)
  (DOU :POINTER)
  (MINRGP :POINTER)
  (RTOL1 :POINTER)
  (RTOL2 :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WGAP :POINTER)
  (IBLOCK :POINTER)
  (INDEXW :POINTER)
  (GERS :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLARRV
                   (N VL VU D L PIVMIN ISPLIT M DOL DOU MINRGP RTOL1 RTOL2 W
                    WERR WGAP IBLOCK INDEXW GERS Z LDZ ISUPPZ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARRV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) L)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT MINRGP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEXW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GERS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3578 ':INT32) (VL-REF3579 ':FLOAT)
                              (VU-REF3580 ':FLOAT) (PIVMIN-REF3583 ':FLOAT)
                              (M-REF3585 ':INT32) (DOL-REF3586 ':INT32)
                              (DOU-REF3587 ':INT32) (MINRGP-REF3588 ':FLOAT)
                              (RTOL1-REF3589 ':FLOAT) (RTOL2-REF3590 ':FLOAT)
                              (LDZ-REF3598 ':INT32) (INFO-REF3602 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3578 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF3579 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF3580 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF3583 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3585 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF3586 :INT32) DOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF3587 :INT32) DOU)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF3588 :FLOAT) MINRGP)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF3589 :FLOAT) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF3590 :FLOAT) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3598 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3602 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3581 D) (L-REF3582 L)
                                            (ISPLIT-REF3584 ISPLIT)
                                            (W-REF3591 W) (WERR-REF3592 WERR)
                                            (WGAP-REF3593 WGAP)
                                            (IBLOCK-REF3594 IBLOCK)
                                            (INDEXW-REF3595 INDEXW)
                                            (GERS-REF3596 GERS) (Z-REF3597 Z)
                                            (ISUPPZ-REF3599 ISUPPZ)
                                            (WORK-REF3600 WORK)
                                            (IWORK-REF3601 IWORK))
      (%%CLARRV N-REF3578 VL-REF3579 VU-REF3580 D-REF3581 L-REF3582
                PIVMIN-REF3583 ISPLIT-REF3584 M-REF3585 DOL-REF3586 DOU-REF3587
                MINRGP-REF3588 RTOL1-REF3589 RTOL2-REF3590 W-REF3591
                WERR-REF3592 WGAP-REF3593 IBLOCK-REF3594 INDEXW-REF3595
                GERS-REF3596 Z-REF3597 LDZ-REF3598 ISUPPZ-REF3599 WORK-REF3600
                IWORK-REF3601 INFO-REF3602))))

(CFFI:DEFCFUN ("clarscl2_" %%CLARSCL2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (X :POINTER)
  (LDX :POINTER))

(COMMON-LISP:DEFUN %CLARSCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARSCL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3603 ':INT32) (N-REF3604 ':INT32)
                              (LDX-REF3607 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3603 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3604 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3607 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3605 D) (X-REF3606 X))
      (%%CLARSCL2 M-REF3603 N-REF3604 D-REF3605 X-REF3606 LDX-REF3607))))

(CFFI:DEFCFUN ("clartg_" %%CLARTG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (CS :POINTER)
  (SN :POINTER)
  (R :POINTER))

(COMMON-LISP:DEFUN %CLARTG (F G CS SN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARTG)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) F)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) G)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) SN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) R))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF3608
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (G-REF3609
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (CS-REF3610 ':FLOAT)
                              (SN-REF3611
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (R-REF3612
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              F-REF3608 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART F)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART F)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              G-REF3609 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART G)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART G)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF3610 :FLOAT) CS)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SN-REF3611 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              R-REF3612 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART R)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART R)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CLARTG F-REF3608 G-REF3609 CS-REF3610 SN-REF3611 R-REF3612))))

(CFFI:DEFCFUN ("clartv_" %%CLARTV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %CLARTV (N X INCX Y INCY C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARTV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3613 ':INT32) (INCX-REF3615 ':INT32)
                              (INCY-REF3617 ':INT32) (INCC-REF3620 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3613 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3615 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF3617 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF3620 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3614 X) (Y-REF3616 Y)
                                            (C-REF3618 C) (S-REF3619 S))
      (%%CLARTV N-REF3613 X-REF3614 INCX-REF3615 Y-REF3616 INCY-REF3617
                C-REF3618 S-REF3619 INCC-REF3620))))

(CFFI:DEFCFUN ("clarz_" %%CLARZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLARZ (SIDE M N L V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3622 ':INT32) (N-REF3623 ':INT32)
                              (L-REF3624 ':INT32) (INCV-REF3626 ':INT32)
                              (TAU-REF3627
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF3629 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3622 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3623 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF3624 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF3626 :INT32) INCV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF3627
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3629 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3625 V) (C-REF3628 C)
                                            (WORK-REF3630 WORK))
      (%%CLARZ SIDE M-REF3622 N-REF3623 L-REF3624 V-REF3625 INCV-REF3626
               TAU-REF3627 C-REF3628 LDC-REF3629 WORK-REF3630))))

(CFFI:DEFCFUN ("clarzb_" %%CLARZB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %CLARZB
                   (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT C LDC WORK
                    LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARZB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3635 ':INT32) (N-REF3636 ':INT32)
                              (K-REF3637 ':INT32) (L-REF3638 ':INT32)
                              (LDV-REF3640 ':INT32) (LDT-REF3642 ':INT32)
                              (LDC-REF3644 ':INT32) (LDWORK-REF3646 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3635 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3636 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3637 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF3638 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3640 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3642 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3644 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF3646 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3639 V) (T-REF3641 T)
                                            (C-REF3643 C) (WORK-REF3645 WORK))
      (%%CLARZB SIDE TRANS DIRECT STOREV M-REF3635 N-REF3636 K-REF3637
                L-REF3638 V-REF3639 LDV-REF3640 T-REF3641 LDT-REF3642 C-REF3643
                LDC-REF3644 WORK-REF3645 LDWORK-REF3646))))

(CFFI:DEFCFUN ("clarzt_" %%CLARZT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (DIRECT :STRING)
  (STOREV :STRING)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER))

(COMMON-LISP:DEFUN %CLARZT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARZT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3649 ':INT32) (K-REF3650 ':INT32)
                              (LDV-REF3652 ':INT32) (LDT-REF3655 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3649 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3650 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3652 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3655 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3651 V) (TAU-REF3653 TAU)
                                            (T-REF3654 T))
      (%%CLARZT DIRECT STOREV N-REF3649 K-REF3650 V-REF3651 LDV-REF3652
                TAU-REF3653 T-REF3654 LDT-REF3655))))

(CFFI:DEFCFUN ("clascl_" %%CLASCL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TYPE :STRING)
  (KL :POINTER)
  (KU :POINTER)
  (CFROM :POINTER)
  (CTO :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLASCL (TYPE KL KU CFROM CTO M N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASCL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CFROM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CTO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF3657 ':INT32) (KU-REF3658 ':INT32)
                              (CFROM-REF3659 ':FLOAT) (CTO-REF3660 ':FLOAT)
                              (M-REF3661 ':INT32) (N-REF3662 ':INT32)
                              (LDA-REF3664 ':INT32) (INFO-REF3665 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF3657 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF3658 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF3659 :FLOAT) CFROM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF3660 :FLOAT) CTO)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3661 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3662 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3664 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3665 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3663 A))
      (%%CLASCL TYPE KL-REF3657 KU-REF3658 CFROM-REF3659 CTO-REF3660 M-REF3661
                N-REF3662 A-REF3663 LDA-REF3664 INFO-REF3665))))

(CFFI:DEFCFUN ("clascl2_" %%CLASCL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (X :POINTER)
  (LDX :POINTER))

(COMMON-LISP:DEFUN %CLASCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASCL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3666 ':INT32) (N-REF3667 ':INT32)
                              (LDX-REF3670 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3666 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3667 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3670 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3668 D) (X-REF3669 X))
      (%%CLASCL2 M-REF3666 N-REF3667 D-REF3668 X-REF3669 LDX-REF3670))))

(CFFI:DEFCFUN ("claset_" %%CLASET :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %CLASET (UPLO M N ALPHA BETA A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASET)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3672 ':INT32) (N-REF3673 ':INT32)
                              (ALPHA-REF3674
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (BETA-REF3675
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF3677 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3672 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3673 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF3674
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF3675
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3677 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3676 A))
      (%%CLASET UPLO M-REF3672 N-REF3673 ALPHA-REF3674 BETA-REF3675 A-REF3676
                LDA-REF3677))))

(CFFI:DEFCFUN ("clasr_" %%CLASR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (PIVOT :STRING)
  (DIRECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (C :POINTER)
  (S :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %CLASR (SIDE PIVOT DIRECT M N C S A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING PIVOT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3681 ':INT32) (N-REF3682 ':INT32)
                              (LDA-REF3686 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3681 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3682 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3686 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF3683 C) (S-REF3684 S)
                                            (A-REF3685 A))
      (%%CLASR SIDE PIVOT DIRECT M-REF3681 N-REF3682 C-REF3683 S-REF3684
               A-REF3685 LDA-REF3686))))

(CFFI:DEFCFUN ("classq_" %%CLASSQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (SCALE :POINTER)
  (SUMSQ :POINTER))

(COMMON-LISP:DEFUN %CLASSQ (N X INCX SCALE SUMSQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASSQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SUMSQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3687 ':INT32) (INCX-REF3689 ':INT32)
                              (SCALE-REF3690 ':FLOAT) (SUMSQ-REF3691 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3687 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3689 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF3690 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF3691 :FLOAT) SUMSQ)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3688 X))
      (%%CLASSQ N-REF3687 X-REF3688 INCX-REF3689 SCALE-REF3690 SUMSQ-REF3691))))

(CFFI:DEFCFUN ("claswlq_" %%CLASWLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLASWLQ (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASWLQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3692 ':INT32) (N-REF3693 ':INT32)
                              (MB-REF3694 ':INT32) (NB-REF3695 ':INT32)
                              (LDA-REF3697 ':INT32) (LDT-REF3699 ':INT32)
                              (LWORK-REF3701 ':INT32) (INFO-REF3702 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3692 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3693 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF3694 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3695 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3697 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3699 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3701 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3702 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3696 A) (T-REF3698 T)
                                            (WORK-REF3700 WORK))
      (%%CLASWLQ M-REF3692 N-REF3693 MB-REF3694 NB-REF3695 A-REF3696
                 LDA-REF3697 T-REF3698 LDT-REF3699 WORK-REF3700 LWORK-REF3701
                 INFO-REF3702))))

(CFFI:DEFCFUN ("claswp_" %%CLASWP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (K1 :POINTER)
  (K2 :POINTER)
  (IPIV :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CLASWP (N A LDA K1 K2 IPIV INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASWP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3703 ':INT32) (LDA-REF3705 ':INT32)
                              (K1-REF3706 ':INT32) (K2-REF3707 ':INT32)
                              (INCX-REF3709 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3703 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3705 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF3706 :INT32) K1)
    (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF3707 :INT32) K2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3709 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3704 A) (IPIV-REF3708 IPIV))
      (%%CLASWP N-REF3703 A-REF3704 LDA-REF3705 K1-REF3706 K2-REF3707
                IPIV-REF3708 INCX-REF3709))))

(CFFI:DEFCFUN ("clasyf_" %%CLASYF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLASYF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASYF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3711 ':INT32) (NB-REF3712 ':INT32)
                              (KB-REF3713 ':INT32) (LDA-REF3715 ':INT32)
                              (LDW-REF3718 ':INT32) (INFO-REF3719 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3711 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3712 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3713 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3715 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3718 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3719 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3714 A) (IPIV-REF3716 IPIV)
                                            (W-REF3717 W))
      (%%CLASYF UPLO N-REF3711 NB-REF3712 KB-REF3713 A-REF3714 LDA-REF3715
                IPIV-REF3716 W-REF3717 LDW-REF3718 INFO-REF3719))))

(CFFI:DEFCFUN ("clasyf_aa_" %%CLASYF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (J1 :POINTER)
  (M :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLASYF_AA (UPLO J1 M NB A LDA IPIV H LDH WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASYF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF3721 ':INT32) (M-REF3722 ':INT32)
                              (NB-REF3723 ':INT32) (LDA-REF3725 ':INT32)
                              (LDH-REF3728 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF3721 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3722 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3723 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3725 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3728 :INT32) LDH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3724 A) (IPIV-REF3726 IPIV)
                                            (H-REF3727 H) (WORK-REF3729 WORK))
      (%%CLASYF_AA UPLO J1-REF3721 M-REF3722 NB-REF3723 A-REF3724 LDA-REF3725
                   IPIV-REF3726 H-REF3727 LDH-REF3728 WORK-REF3729))))

(CFFI:DEFCFUN ("clasyf_rk_" %%CLASYF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLASYF_RK (UPLO N NB KB A LDA E IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASYF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3731 ':INT32) (NB-REF3732 ':INT32)
                              (KB-REF3733 ':INT32) (LDA-REF3735 ':INT32)
                              (LDW-REF3739 ':INT32) (INFO-REF3740 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3731 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3732 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3733 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3735 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3739 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3740 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3734 A) (E-REF3736 E)
                                            (IPIV-REF3737 IPIV) (W-REF3738 W))
      (%%CLASYF_RK UPLO N-REF3731 NB-REF3732 KB-REF3733 A-REF3734 LDA-REF3735
                   E-REF3736 IPIV-REF3737 W-REF3738 LDW-REF3739 INFO-REF3740))))

(CFFI:DEFCFUN ("clasyf_rook_" %%CLASYF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLASYF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASYF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3742 ':INT32) (NB-REF3743 ':INT32)
                              (KB-REF3744 ':INT32) (LDA-REF3746 ':INT32)
                              (LDW-REF3749 ':INT32) (INFO-REF3750 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3742 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3743 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3744 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3746 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3749 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3750 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3745 A) (IPIV-REF3747 IPIV)
                                            (W-REF3748 W))
      (%%CLASYF_ROOK UPLO N-REF3742 NB-REF3743 KB-REF3744 A-REF3745 LDA-REF3746
                     IPIV-REF3747 W-REF3748 LDW-REF3749 INFO-REF3750))))

(CFFI:DEFCFUN ("clatbs_" %%CLATBS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLATBS
                   (UPLO TRANS DIAG NORMIN N KD AB LDAB X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATBS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3755 ':INT32) (KD-REF3756 ':INT32)
                              (LDAB-REF3758 ':INT32) (SCALE-REF3760 ':FLOAT)
                              (INFO-REF3762 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3755 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3756 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3758 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF3760 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3762 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3757 AB) (X-REF3759 X)
                                            (CNORM-REF3761 CNORM))
      (%%CLATBS UPLO TRANS DIAG NORMIN N-REF3755 KD-REF3756 AB-REF3757
                LDAB-REF3758 X-REF3759 SCALE-REF3760 CNORM-REF3761
                INFO-REF3762))))

(CFFI:DEFCFUN ("clatdf_" %%CLATDF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (N :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (RHS :POINTER)
  (RDSUM :POINTER)
  (RDSCAL :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER))

(COMMON-LISP:DEFUN %CLATDF (IJOB N Z LDZ RHS RDSUM RDSCAL IPIV JPIV)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATDF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        RHS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSUM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSCAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF3763 ':INT32) (N-REF3764 ':INT32)
                              (LDZ-REF3766 ':INT32) (RDSUM-REF3768 ':FLOAT)
                              (RDSCAL-REF3769 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF3763 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3764 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3766 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF3768 :FLOAT) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF3769 :FLOAT) RDSCAL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF3765 Z) (RHS-REF3767 RHS)
                                            (IPIV-REF3770 IPIV)
                                            (JPIV-REF3771 JPIV))
      (%%CLATDF IJOB-REF3763 N-REF3764 Z-REF3765 LDZ-REF3766 RHS-REF3767
                RDSUM-REF3768 RDSCAL-REF3769 IPIV-REF3770 JPIV-REF3771))))

(CFFI:DEFCFUN ("clatps_" %%CLATPS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLATPS (UPLO TRANS DIAG NORMIN N AP X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATPS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3776 ':INT32) (SCALE-REF3779 ':FLOAT)
                              (INFO-REF3781 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3776 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF3779 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3781 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3777 AP) (X-REF3778 X)
                                            (CNORM-REF3780 CNORM))
      (%%CLATPS UPLO TRANS DIAG NORMIN N-REF3776 AP-REF3777 X-REF3778
                SCALE-REF3779 CNORM-REF3780 INFO-REF3781))))

(CFFI:DEFCFUN ("clatrd_" %%CLATRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (W :POINTER)
  (LDW :POINTER))

(COMMON-LISP:DEFUN %CLATRD (UPLO N NB A LDA E TAU W LDW)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3783 ':INT32) (NB-REF3784 ':INT32)
                              (LDA-REF3786 ':INT32) (LDW-REF3790 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3783 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3784 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3786 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3790 :INT32) LDW)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3785 A) (E-REF3787 E)
                                            (TAU-REF3788 TAU) (W-REF3789 W))
      (%%CLATRD UPLO N-REF3783 NB-REF3784 A-REF3785 LDA-REF3786 E-REF3787
                TAU-REF3788 W-REF3789 LDW-REF3790))))

(CFFI:DEFCFUN ("clatrs_" %%CLATRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLATRS (UPLO TRANS DIAG NORMIN N A LDA X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3795 ':INT32) (LDA-REF3797 ':INT32)
                              (SCALE-REF3799 ':FLOAT) (INFO-REF3801 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3795 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3797 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF3799 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3801 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3796 A) (X-REF3798 X)
                                            (CNORM-REF3800 CNORM))
      (%%CLATRS UPLO TRANS DIAG NORMIN N-REF3795 A-REF3796 LDA-REF3797
                X-REF3798 SCALE-REF3799 CNORM-REF3800 INFO-REF3801))))

(CFFI:DEFCFUN ("clatrz_" %%CLATRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %CLATRZ (M N L A LDA TAU WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATRZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3802 ':INT32) (N-REF3803 ':INT32)
                              (L-REF3804 ':INT32) (LDA-REF3806 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3802 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3803 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF3804 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3806 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3805 A) (TAU-REF3807 TAU)
                                            (WORK-REF3808 WORK))
      (%%CLATRZ M-REF3802 N-REF3803 L-REF3804 A-REF3805 LDA-REF3806 TAU-REF3807
                WORK-REF3808))))

(CFFI:DEFCFUN ("clatsqr_" %%CLATSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLATSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATSQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3809 ':INT32) (N-REF3810 ':INT32)
                              (MB-REF3811 ':INT32) (NB-REF3812 ':INT32)
                              (LDA-REF3814 ':INT32) (LDT-REF3816 ':INT32)
                              (LWORK-REF3818 ':INT32) (INFO-REF3819 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3809 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3810 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF3811 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3812 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3814 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3816 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3818 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3819 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3813 A) (T-REF3815 T)
                                            (WORK-REF3817 WORK))
      (%%CLATSQR M-REF3809 N-REF3810 MB-REF3811 NB-REF3812 A-REF3813
                 LDA-REF3814 T-REF3815 LDT-REF3816 WORK-REF3817 LWORK-REF3818
                 INFO-REF3819))))

(CFFI:DEFCFUN ("clauu2_" %%CLAUU2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAUU2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAUU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3821 ':INT32) (LDA-REF3823 ':INT32)
                              (INFO-REF3824 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3821 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3823 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3824 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3822 A))
      (%%CLAUU2 UPLO N-REF3821 A-REF3822 LDA-REF3823 INFO-REF3824))))

(CFFI:DEFCFUN ("clauum_" %%CLAUUM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CLAUUM (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAUUM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3826 ':INT32) (LDA-REF3828 ':INT32)
                              (INFO-REF3829 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3826 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3828 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3829 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3827 A))
      (%%CLAUUM UPLO N-REF3826 A-REF3827 LDA-REF3828 INFO-REF3829))))

(CFFI:DEFCFUN ("cpbcon_" %%CPBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBCON (UPLO N KD AB LDAB ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3831 ':INT32) (KD-REF3832 ':INT32)
                              (LDAB-REF3834 ':INT32) (ANORM-REF3835 ':FLOAT)
                              (RCOND-REF3836 ':FLOAT) (INFO-REF3839 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3831 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3832 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3834 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF3835 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3836 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3839 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3833 AB) (WORK-REF3837 WORK)
                                            (RWORK-REF3838 RWORK))
      (%%CPBCON UPLO N-REF3831 KD-REF3832 AB-REF3833 LDAB-REF3834 ANORM-REF3835
                RCOND-REF3836 WORK-REF3837 RWORK-REF3838 INFO-REF3839))))

(CFFI:DEFCFUN ("cpbequ_" %%CPBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBEQU (UPLO N KD AB LDAB S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBEQU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3841 ':INT32) (KD-REF3842 ':INT32)
                              (LDAB-REF3844 ':INT32) (SCOND-REF3846 ':FLOAT)
                              (AMAX-REF3847 ':FLOAT) (INFO-REF3848 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3841 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3842 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3844 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3846 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3847 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3848 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3843 AB) (S-REF3845 S))
      (%%CPBEQU UPLO N-REF3841 KD-REF3842 AB-REF3843 LDAB-REF3844 S-REF3845
                SCOND-REF3846 AMAX-REF3847 INFO-REF3848))))

(CFFI:DEFCFUN ("cpbrfs_" %%CPBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBRFS
                   (UPLO N KD NRHS AB LDAB AFB LDAFB B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3850 ':INT32) (KD-REF3851 ':INT32)
                              (NRHS-REF3852 ':INT32) (LDAB-REF3854 ':INT32)
                              (LDAFB-REF3856 ':INT32) (LDB-REF3858 ':INT32)
                              (LDX-REF3860 ':INT32) (INFO-REF3865 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3850 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3851 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3852 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3854 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF3856 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3858 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3860 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3865 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3853 AB) (AFB-REF3855 AFB)
                                            (B-REF3857 B) (X-REF3859 X)
                                            (FERR-REF3861 FERR)
                                            (BERR-REF3862 BERR)
                                            (WORK-REF3863 WORK)
                                            (RWORK-REF3864 RWORK))
      (%%CPBRFS UPLO N-REF3850 KD-REF3851 NRHS-REF3852 AB-REF3853 LDAB-REF3854
                AFB-REF3855 LDAFB-REF3856 B-REF3857 LDB-REF3858 X-REF3859
                LDX-REF3860 FERR-REF3861 BERR-REF3862 WORK-REF3863
                RWORK-REF3864 INFO-REF3865))))

(CFFI:DEFCFUN ("cpbstf_" %%CPBSTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBSTF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBSTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3867 ':INT32) (KD-REF3868 ':INT32)
                              (LDAB-REF3870 ':INT32) (INFO-REF3871 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3867 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3868 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3870 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3871 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3869 AB))
      (%%CPBSTF UPLO N-REF3867 KD-REF3868 AB-REF3869 LDAB-REF3870
                INFO-REF3871))))

(CFFI:DEFCFUN ("cpbsv_" %%CPBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBSV (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3873 ':INT32) (KD-REF3874 ':INT32)
                              (NRHS-REF3875 ':INT32) (LDAB-REF3877 ':INT32)
                              (LDB-REF3879 ':INT32) (INFO-REF3880 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3873 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3874 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3875 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3877 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3879 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3880 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3876 AB) (B-REF3878 B))
      (%%CPBSV UPLO N-REF3873 KD-REF3874 NRHS-REF3875 AB-REF3876 LDAB-REF3877
               B-REF3878 LDB-REF3879 INFO-REF3880))))

(CFFI:DEFCFUN ("cpbsvx_" %%CPBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBSVX
                   (FACT UPLO N KD NRHS AB LDAB AFB LDAFB EQUED S B LDB X LDX
                    RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3883 ':INT32) (KD-REF3884 ':INT32)
                              (NRHS-REF3885 ':INT32) (LDAB-REF3887 ':INT32)
                              (LDAFB-REF3889 ':INT32) (LDB-REF3893 ':INT32)
                              (LDX-REF3895 ':INT32) (RCOND-REF3896 ':FLOAT)
                              (INFO-REF3901 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3883 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3884 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3885 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3887 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF3889 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3893 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3895 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3896 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3901 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3886 AB) (AFB-REF3888 AFB)
                                            (S-REF3891 S) (B-REF3892 B)
                                            (X-REF3894 X) (FERR-REF3897 FERR)
                                            (BERR-REF3898 BERR)
                                            (WORK-REF3899 WORK)
                                            (RWORK-REF3900 RWORK))
      (%%CPBSVX FACT UPLO N-REF3883 KD-REF3884 NRHS-REF3885 AB-REF3886
                LDAB-REF3887 AFB-REF3888 LDAFB-REF3889 EQUED S-REF3891
                B-REF3892 LDB-REF3893 X-REF3894 LDX-REF3895 RCOND-REF3896
                FERR-REF3897 BERR-REF3898 WORK-REF3899 RWORK-REF3900
                INFO-REF3901))))

(CFFI:DEFCFUN ("cpbtf2_" %%CPBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBTF2 (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3903 ':INT32) (KD-REF3904 ':INT32)
                              (LDAB-REF3906 ':INT32) (INFO-REF3907 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3903 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3904 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3906 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3907 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3905 AB))
      (%%CPBTF2 UPLO N-REF3903 KD-REF3904 AB-REF3905 LDAB-REF3906
                INFO-REF3907))))

(CFFI:DEFCFUN ("cpbtrf_" %%CPBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBTRF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3909 ':INT32) (KD-REF3910 ':INT32)
                              (LDAB-REF3912 ':INT32) (INFO-REF3913 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3909 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3910 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3912 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3913 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3911 AB))
      (%%CPBTRF UPLO N-REF3909 KD-REF3910 AB-REF3911 LDAB-REF3912
                INFO-REF3913))))

(CFFI:DEFCFUN ("cpbtrs_" %%CPBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPBTRS (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3915 ':INT32) (KD-REF3916 ':INT32)
                              (NRHS-REF3917 ':INT32) (LDAB-REF3919 ':INT32)
                              (LDB-REF3921 ':INT32) (INFO-REF3922 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3915 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3916 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3917 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3919 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3921 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3922 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3918 AB) (B-REF3920 B))
      (%%CPBTRS UPLO N-REF3915 KD-REF3916 NRHS-REF3917 AB-REF3918 LDAB-REF3919
                B-REF3920 LDB-REF3921 INFO-REF3922))))

(CFFI:DEFCFUN ("cpftrf_" %%CPFTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPFTRF (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPFTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3925 ':INT32) (INFO-REF3927 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3925 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3927 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3926 A))
      (%%CPFTRF TRANSR UPLO N-REF3925 A-REF3926 INFO-REF3927))))

(CFFI:DEFCFUN ("cpftri_" %%CPFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPFTRI (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPFTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3930 ':INT32) (INFO-REF3932 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3930 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3932 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3931 A))
      (%%CPFTRI TRANSR UPLO N-REF3930 A-REF3931 INFO-REF3932))))

(CFFI:DEFCFUN ("cpftrs_" %%CPFTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPFTRS (TRANSR UPLO N NRHS A B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPFTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3935 ':INT32) (NRHS-REF3936 ':INT32)
                              (LDB-REF3939 ':INT32) (INFO-REF3940 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3935 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3936 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3939 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3940 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3937 A) (B-REF3938 B))
      (%%CPFTRS TRANSR UPLO N-REF3935 NRHS-REF3936 A-REF3937 B-REF3938
                LDB-REF3939 INFO-REF3940))))

(CFFI:DEFCFUN ("cpocon_" %%CPOCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOCON (UPLO N A LDA ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3942 ':INT32) (LDA-REF3944 ':INT32)
                              (ANORM-REF3945 ':FLOAT) (RCOND-REF3946 ':FLOAT)
                              (INFO-REF3949 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3942 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3944 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF3945 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3946 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3949 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3943 A) (WORK-REF3947 WORK)
                                            (RWORK-REF3948 RWORK))
      (%%CPOCON UPLO N-REF3942 A-REF3943 LDA-REF3944 ANORM-REF3945
                RCOND-REF3946 WORK-REF3947 RWORK-REF3948 INFO-REF3949))))

(CFFI:DEFCFUN ("cpoequ_" %%CPOEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOEQU (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3950 ':INT32) (LDA-REF3952 ':INT32)
                              (SCOND-REF3954 ':FLOAT) (AMAX-REF3955 ':FLOAT)
                              (INFO-REF3956 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3950 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3952 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3954 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3955 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3956 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3951 A) (S-REF3953 S))
      (%%CPOEQU N-REF3950 A-REF3951 LDA-REF3952 S-REF3953 SCOND-REF3954
                AMAX-REF3955 INFO-REF3956))))

(CFFI:DEFCFUN ("cpoequb_" %%CPOEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOEQUB (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3957 ':INT32) (LDA-REF3959 ':INT32)
                              (SCOND-REF3961 ':FLOAT) (AMAX-REF3962 ':FLOAT)
                              (INFO-REF3963 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3957 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3959 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3961 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3962 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3963 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3958 A) (S-REF3960 S))
      (%%CPOEQUB N-REF3957 A-REF3958 LDA-REF3959 S-REF3960 SCOND-REF3961
                 AMAX-REF3962 INFO-REF3963))))

(CFFI:DEFCFUN ("cporfs_" %%CPORFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPORFS
                   (UPLO N NRHS A LDA AF LDAF B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPORFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3965 ':INT32) (NRHS-REF3966 ':INT32)
                              (LDA-REF3968 ':INT32) (LDAF-REF3970 ':INT32)
                              (LDB-REF3972 ':INT32) (LDX-REF3974 ':INT32)
                              (INFO-REF3979 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3965 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3966 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3968 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF3970 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3972 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3974 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3979 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3967 A) (AF-REF3969 AF)
                                            (B-REF3971 B) (X-REF3973 X)
                                            (FERR-REF3975 FERR)
                                            (BERR-REF3976 BERR)
                                            (WORK-REF3977 WORK)
                                            (RWORK-REF3978 RWORK))
      (%%CPORFS UPLO N-REF3965 NRHS-REF3966 A-REF3967 LDA-REF3968 AF-REF3969
                LDAF-REF3970 B-REF3971 LDB-REF3972 X-REF3973 LDX-REF3974
                FERR-REF3975 BERR-REF3976 WORK-REF3977 RWORK-REF3978
                INFO-REF3979))))

(CFFI:DEFCFUN ("cporfsx_" %%CPORFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPORFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF S B LDB X LDX RCOND BERR
                    N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPORFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3982 ':INT32) (NRHS-REF3983 ':INT32)
                              (LDA-REF3985 ':INT32) (LDAF-REF3987 ':INT32)
                              (LDB-REF3990 ':INT32) (LDX-REF3992 ':INT32)
                              (RCOND-REF3993 ':FLOAT)
                              (N_ERR_BNDS-REF3995 ':INT32)
                              (NPARAMS-REF3998 ':INT32) (INFO-REF4002 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3982 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3983 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3985 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF3987 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3990 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3992 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3993 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF3995 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF3998 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4002 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3984 A) (AF-REF3986 AF)
                                            (S-REF3988 S) (B-REF3989 B)
                                            (X-REF3991 X) (BERR-REF3994 BERR)
                                            (ERR_BNDS_NORM-REF3996
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF3997
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF3999 PARAMS)
                                            (WORK-REF4000 WORK)
                                            (RWORK-REF4001 RWORK))
      (%%CPORFSX UPLO EQUED N-REF3982 NRHS-REF3983 A-REF3984 LDA-REF3985
                 AF-REF3986 LDAF-REF3987 S-REF3988 B-REF3989 LDB-REF3990
                 X-REF3991 LDX-REF3992 RCOND-REF3993 BERR-REF3994
                 N_ERR_BNDS-REF3995 ERR_BNDS_NORM-REF3996 ERR_BNDS_COMP-REF3997
                 NPARAMS-REF3998 PARAMS-REF3999 WORK-REF4000 RWORK-REF4001
                 INFO-REF4002))))

(CFFI:DEFCFUN ("cposv_" %%CPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOSV (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4004 ':INT32) (NRHS-REF4005 ':INT32)
                              (LDA-REF4007 ':INT32) (LDB-REF4009 ':INT32)
                              (INFO-REF4010 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4004 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4005 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4007 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4009 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4010 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4006 A) (B-REF4008 B))
      (%%CPOSV UPLO N-REF4004 NRHS-REF4005 A-REF4006 LDA-REF4007 B-REF4008
               LDB-REF4009 INFO-REF4010))))

(CFFI:DEFCFUN ("cposvx_" %%CPOSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOSVX
                   (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND
                    FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4013 ':INT32) (NRHS-REF4014 ':INT32)
                              (LDA-REF4016 ':INT32) (LDAF-REF4018 ':INT32)
                              (LDB-REF4022 ':INT32) (LDX-REF4024 ':INT32)
                              (RCOND-REF4025 ':FLOAT) (INFO-REF4030 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4013 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4014 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4016 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4018 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4022 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4024 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4025 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4030 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4015 A) (AF-REF4017 AF)
                                            (S-REF4020 S) (B-REF4021 B)
                                            (X-REF4023 X) (FERR-REF4026 FERR)
                                            (BERR-REF4027 BERR)
                                            (WORK-REF4028 WORK)
                                            (RWORK-REF4029 RWORK))
      (%%CPOSVX FACT UPLO N-REF4013 NRHS-REF4014 A-REF4015 LDA-REF4016
                AF-REF4017 LDAF-REF4018 EQUED S-REF4020 B-REF4021 LDB-REF4022
                X-REF4023 LDX-REF4024 RCOND-REF4025 FERR-REF4026 BERR-REF4027
                WORK-REF4028 RWORK-REF4029 INFO-REF4030))))

(CFFI:DEFCFUN ("cposvxx_" %%CPOSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOSVXX
                   (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND
                    RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS
                    PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4033 ':INT32) (NRHS-REF4034 ':INT32)
                              (LDA-REF4036 ':INT32) (LDAF-REF4038 ':INT32)
                              (LDB-REF4042 ':INT32) (LDX-REF4044 ':INT32)
                              (RCOND-REF4045 ':FLOAT) (RPVGRW-REF4046 ':FLOAT)
                              (N_ERR_BNDS-REF4048 ':INT32)
                              (NPARAMS-REF4051 ':INT32) (INFO-REF4055 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4033 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4034 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4036 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4038 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4042 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4044 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4045 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF4046 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF4048 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF4051 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4055 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4035 A) (AF-REF4037 AF)
                                            (S-REF4040 S) (B-REF4041 B)
                                            (X-REF4043 X) (BERR-REF4047 BERR)
                                            (ERR_BNDS_NORM-REF4049
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF4050
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF4052 PARAMS)
                                            (WORK-REF4053 WORK)
                                            (RWORK-REF4054 RWORK))
      (%%CPOSVXX FACT UPLO N-REF4033 NRHS-REF4034 A-REF4035 LDA-REF4036
                 AF-REF4037 LDAF-REF4038 EQUED S-REF4040 B-REF4041 LDB-REF4042
                 X-REF4043 LDX-REF4044 RCOND-REF4045 RPVGRW-REF4046
                 BERR-REF4047 N_ERR_BNDS-REF4048 ERR_BNDS_NORM-REF4049
                 ERR_BNDS_COMP-REF4050 NPARAMS-REF4051 PARAMS-REF4052
                 WORK-REF4053 RWORK-REF4054 INFO-REF4055))))

(CFFI:DEFCFUN ("cpotf2_" %%CPOTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOTF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4057 ':INT32) (LDA-REF4059 ':INT32)
                              (INFO-REF4060 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4057 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4059 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4060 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4058 A))
      (%%CPOTF2 UPLO N-REF4057 A-REF4058 LDA-REF4059 INFO-REF4060))))

(CFFI:DEFCFUN ("cpotrf_" %%CPOTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOTRF (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4062 ':INT32) (LDA-REF4064 ':INT32)
                              (INFO-REF4065 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4062 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4064 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4065 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4063 A))
      (%%CPOTRF UPLO N-REF4062 A-REF4063 LDA-REF4064 INFO-REF4065))))

(CFFI:DEFCFUN ("cpotrf2_" %%CPOTRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOTRF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOTRF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4067 ':INT32) (LDA-REF4069 ':INT32)
                              (INFO-REF4070 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4067 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4069 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4070 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4068 A))
      (%%CPOTRF2 UPLO N-REF4067 A-REF4068 LDA-REF4069 INFO-REF4070))))

(CFFI:DEFCFUN ("cpotri_" %%CPOTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOTRI (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4072 ':INT32) (LDA-REF4074 ':INT32)
                              (INFO-REF4075 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4072 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4074 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4075 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4073 A))
      (%%CPOTRI UPLO N-REF4072 A-REF4073 LDA-REF4074 INFO-REF4075))))

(CFFI:DEFCFUN ("cpotrs_" %%CPOTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPOTRS (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4077 ':INT32) (NRHS-REF4078 ':INT32)
                              (LDA-REF4080 ':INT32) (LDB-REF4082 ':INT32)
                              (INFO-REF4083 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4077 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4078 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4080 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4082 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4083 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4079 A) (B-REF4081 B))
      (%%CPOTRS UPLO N-REF4077 NRHS-REF4078 A-REF4079 LDA-REF4080 B-REF4081
                LDB-REF4082 INFO-REF4083))))

(CFFI:DEFCFUN ("cppcon_" %%CPPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPPCON (UPLO N AP ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4085 ':INT32) (ANORM-REF4087 ':FLOAT)
                              (RCOND-REF4088 ':FLOAT) (INFO-REF4091 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4085 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4087 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4088 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4091 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4086 AP) (WORK-REF4089 WORK)
                                            (RWORK-REF4090 RWORK))
      (%%CPPCON UPLO N-REF4085 AP-REF4086 ANORM-REF4087 RCOND-REF4088
                WORK-REF4089 RWORK-REF4090 INFO-REF4091))))

(CFFI:DEFCFUN ("cppequ_" %%CPPEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPPEQU (UPLO N AP S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPEQU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4093 ':INT32) (SCOND-REF4096 ':FLOAT)
                              (AMAX-REF4097 ':FLOAT) (INFO-REF4098 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4093 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF4096 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF4097 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4098 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4094 AP) (S-REF4095 S))
      (%%CPPEQU UPLO N-REF4093 AP-REF4094 S-REF4095 SCOND-REF4096 AMAX-REF4097
                INFO-REF4098))))

(CFFI:DEFCFUN ("cpprfs_" %%CPPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPPRFS
                   (UPLO N NRHS AP AFP B LDB X LDX FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4100 ':INT32) (NRHS-REF4101 ':INT32)
                              (LDB-REF4105 ':INT32) (LDX-REF4107 ':INT32)
                              (INFO-REF4112 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4100 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4101 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4105 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4107 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4112 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4102 AP) (AFP-REF4103 AFP)
                                            (B-REF4104 B) (X-REF4106 X)
                                            (FERR-REF4108 FERR)
                                            (BERR-REF4109 BERR)
                                            (WORK-REF4110 WORK)
                                            (RWORK-REF4111 RWORK))
      (%%CPPRFS UPLO N-REF4100 NRHS-REF4101 AP-REF4102 AFP-REF4103 B-REF4104
                LDB-REF4105 X-REF4106 LDX-REF4107 FERR-REF4108 BERR-REF4109
                WORK-REF4110 RWORK-REF4111 INFO-REF4112))))

(CFFI:DEFCFUN ("cppsv_" %%CPPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPPSV (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4114 ':INT32) (NRHS-REF4115 ':INT32)
                              (LDB-REF4118 ':INT32) (INFO-REF4119 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4114 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4115 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4118 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4119 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4116 AP) (B-REF4117 B))
      (%%CPPSV UPLO N-REF4114 NRHS-REF4115 AP-REF4116 B-REF4117 LDB-REF4118
               INFO-REF4119))))

(CFFI:DEFCFUN ("cppsvx_" %%CPPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPPSVX
                   (FACT UPLO N NRHS AP AFP EQUED S B LDB X LDX RCOND FERR BERR
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4122 ':INT32) (NRHS-REF4123 ':INT32)
                              (LDB-REF4129 ':INT32) (LDX-REF4131 ':INT32)
                              (RCOND-REF4132 ':FLOAT) (INFO-REF4137 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4122 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4123 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4129 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4131 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4132 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4137 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4124 AP) (AFP-REF4125 AFP)
                                            (S-REF4127 S) (B-REF4128 B)
                                            (X-REF4130 X) (FERR-REF4133 FERR)
                                            (BERR-REF4134 BERR)
                                            (WORK-REF4135 WORK)
                                            (RWORK-REF4136 RWORK))
      (%%CPPSVX FACT UPLO N-REF4122 NRHS-REF4123 AP-REF4124 AFP-REF4125 EQUED
                S-REF4127 B-REF4128 LDB-REF4129 X-REF4130 LDX-REF4131
                RCOND-REF4132 FERR-REF4133 BERR-REF4134 WORK-REF4135
                RWORK-REF4136 INFO-REF4137))))

(CFFI:DEFCFUN ("cpptrf_" %%CPPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPPTRF (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4139 ':INT32) (INFO-REF4141 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4139 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4141 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4140 AP))
      (%%CPPTRF UPLO N-REF4139 AP-REF4140 INFO-REF4141))))

(CFFI:DEFCFUN ("cpptri_" %%CPPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPPTRI (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4143 ':INT32) (INFO-REF4145 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4143 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4145 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4144 AP))
      (%%CPPTRI UPLO N-REF4143 AP-REF4144 INFO-REF4145))))

(CFFI:DEFCFUN ("cpptrs_" %%CPPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPPTRS (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4147 ':INT32) (NRHS-REF4148 ':INT32)
                              (LDB-REF4151 ':INT32) (INFO-REF4152 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4147 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4148 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4151 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4152 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4149 AP) (B-REF4150 B))
      (%%CPPTRS UPLO N-REF4147 NRHS-REF4148 AP-REF4149 B-REF4150 LDB-REF4151
                INFO-REF4152))))

(CFFI:DEFCFUN ("cpstf2_" %%CPSTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (PIV :POINTER)
  (RANK :POINTER)
  (TOL :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPSTF2 (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPSTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4154 ':INT32) (LDA-REF4156 ':INT32)
                              (RANK-REF4158 ':INT32) (TOL-REF4159 ':FLOAT)
                              (INFO-REF4161 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4154 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4156 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF4158 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF4159 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4161 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4155 A) (PIV-REF4157 PIV)
                                            (WORK-REF4160 WORK))
      (%%CPSTF2 UPLO N-REF4154 A-REF4155 LDA-REF4156 PIV-REF4157 RANK-REF4158
                TOL-REF4159 WORK-REF4160 INFO-REF4161))))

(CFFI:DEFCFUN ("cpstrf_" %%CPSTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (PIV :POINTER)
  (RANK :POINTER)
  (TOL :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPSTRF (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPSTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4163 ':INT32) (LDA-REF4165 ':INT32)
                              (RANK-REF4167 ':INT32) (TOL-REF4168 ':FLOAT)
                              (INFO-REF4170 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4163 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4165 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF4167 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF4168 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4170 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4164 A) (PIV-REF4166 PIV)
                                            (WORK-REF4169 WORK))
      (%%CPSTRF UPLO N-REF4163 A-REF4164 LDA-REF4165 PIV-REF4166 RANK-REF4167
                TOL-REF4168 WORK-REF4169 INFO-REF4170))))

(CFFI:DEFCFUN ("cptcon_" %%CPTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPTCON (N D E ANORM RCOND RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTCON)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4171 ':INT32) (ANORM-REF4174 ':FLOAT)
                              (RCOND-REF4175 ':FLOAT) (INFO-REF4177 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4171 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4174 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4175 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4177 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4172 D) (E-REF4173 E)
                                            (RWORK-REF4176 RWORK))
      (%%CPTCON N-REF4171 D-REF4172 E-REF4173 ANORM-REF4174 RCOND-REF4175
                RWORK-REF4176 INFO-REF4177))))

(CFFI:DEFCFUN ("cpteqr_" %%CPTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4179 ':INT32) (LDZ-REF4183 ':INT32)
                              (INFO-REF4185 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4179 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4183 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4185 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4180 D) (E-REF4181 E)
                                            (Z-REF4182 Z) (WORK-REF4184 WORK))
      (%%CPTEQR COMPZ N-REF4179 D-REF4180 E-REF4181 Z-REF4182 LDZ-REF4183
                WORK-REF4184 INFO-REF4185))))

(CFFI:DEFCFUN ("cptrfs_" %%CPTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (DF :POINTER)
  (EF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPTRFS
                   (UPLO N NRHS D E DF EF B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        EF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4187 ':INT32) (NRHS-REF4188 ':INT32)
                              (LDB-REF4194 ':INT32) (LDX-REF4196 ':INT32)
                              (INFO-REF4201 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4187 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4188 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4194 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4196 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4201 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4189 D) (E-REF4190 E)
                                            (DF-REF4191 DF) (EF-REF4192 EF)
                                            (B-REF4193 B) (X-REF4195 X)
                                            (FERR-REF4197 FERR)
                                            (BERR-REF4198 BERR)
                                            (WORK-REF4199 WORK)
                                            (RWORK-REF4200 RWORK))
      (%%CPTRFS UPLO N-REF4187 NRHS-REF4188 D-REF4189 E-REF4190 DF-REF4191
                EF-REF4192 B-REF4193 LDB-REF4194 X-REF4195 LDX-REF4196
                FERR-REF4197 BERR-REF4198 WORK-REF4199 RWORK-REF4200
                INFO-REF4201))))

(CFFI:DEFCFUN ("cptsv_" %%CPTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPTSV (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4202 ':INT32) (NRHS-REF4203 ':INT32)
                              (LDB-REF4207 ':INT32) (INFO-REF4208 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4202 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4203 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4207 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4208 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4204 D) (E-REF4205 E)
                                            (B-REF4206 B))
      (%%CPTSV N-REF4202 NRHS-REF4203 D-REF4204 E-REF4205 B-REF4206 LDB-REF4207
               INFO-REF4208))))

(CFFI:DEFCFUN ("cptsvx_" %%CPTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (DF :POINTER)
  (EF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPTSVX
                   (FACT N NRHS D E DF EF B LDB X LDX RCOND FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        EF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4210 ':INT32) (NRHS-REF4211 ':INT32)
                              (LDB-REF4217 ':INT32) (LDX-REF4219 ':INT32)
                              (RCOND-REF4220 ':FLOAT) (INFO-REF4225 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4210 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4211 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4217 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4219 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4220 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4225 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4212 D) (E-REF4213 E)
                                            (DF-REF4214 DF) (EF-REF4215 EF)
                                            (B-REF4216 B) (X-REF4218 X)
                                            (FERR-REF4221 FERR)
                                            (BERR-REF4222 BERR)
                                            (WORK-REF4223 WORK)
                                            (RWORK-REF4224 RWORK))
      (%%CPTSVX FACT N-REF4210 NRHS-REF4211 D-REF4212 E-REF4213 DF-REF4214
                EF-REF4215 B-REF4216 LDB-REF4217 X-REF4218 LDX-REF4219
                RCOND-REF4220 FERR-REF4221 BERR-REF4222 WORK-REF4223
                RWORK-REF4224 INFO-REF4225))))

(CFFI:DEFCFUN ("cpttrf_" %%CPTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPTTRF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4226 ':INT32) (INFO-REF4229 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4226 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4229 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4227 D) (E-REF4228 E))
      (%%CPTTRF N-REF4226 D-REF4227 E-REF4228 INFO-REF4229))))

(CFFI:DEFCFUN ("cpttrs_" %%CPTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CPTTRS (UPLO N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4231 ':INT32) (NRHS-REF4232 ':INT32)
                              (LDB-REF4236 ':INT32) (INFO-REF4237 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4231 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4232 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4236 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4237 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4233 D) (E-REF4234 E)
                                            (B-REF4235 B))
      (%%CPTTRS UPLO N-REF4231 NRHS-REF4232 D-REF4233 E-REF4234 B-REF4235
                LDB-REF4236 INFO-REF4237))))

(CFFI:DEFCFUN ("cptts2_" %%CPTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (IUPLO :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %CPTTS2 (IUPLO N NRHS D E B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTTS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IUPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((IUPLO-REF4238 ':INT32) (N-REF4239 ':INT32)
                              (NRHS-REF4240 ':INT32) (LDB-REF4244 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IUPLO-REF4238 :INT32) IUPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4239 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4240 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4244 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4241 D) (E-REF4242 E)
                                            (B-REF4243 B))
      (%%CPTTS2 IUPLO-REF4238 N-REF4239 NRHS-REF4240 D-REF4241 E-REF4242
                B-REF4243 LDB-REF4244))))

(CFFI:DEFCFUN ("crot_" %%CROT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %CROT (N CX INCX CY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CROT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4245 ':INT32) (INCX-REF4247 ':INT32)
                              (INCY-REF4249 ':INT32) (C-REF4250 ':FLOAT)
                              (S-REF4251
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4245 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4247 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF4249 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF4250 :FLOAT) C)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S-REF4251 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF4246 CX) (CY-REF4248 CY))
      (%%CROT N-REF4245 CX-REF4246 INCX-REF4247 CY-REF4248 INCY-REF4249
              C-REF4250 S-REF4251))))

(CFFI:DEFCFUN ("cspcon_" %%CSPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSPCON (UPLO N AP IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4253 ':INT32) (ANORM-REF4256 ':FLOAT)
                              (RCOND-REF4257 ':FLOAT) (INFO-REF4259 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4253 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4256 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4257 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4259 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4254 AP) (IPIV-REF4255 IPIV)
                                            (WORK-REF4258 WORK))
      (%%CSPCON UPLO N-REF4253 AP-REF4254 IPIV-REF4255 ANORM-REF4256
                RCOND-REF4257 WORK-REF4258 INFO-REF4259))))

(CFFI:DEFCFUN ("cspmv_" %%CSPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CSPMV (UPLO N ALPHA AP X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4261 ':INT32)
                              (ALPHA-REF4262
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF4265 ':INT32)
                              (BETA-REF4266
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCY-REF4268 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4261 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF4262
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4265 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF4266
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF4268 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4263 AP) (X-REF4264 X)
                                            (Y-REF4267 Y))
      (%%CSPMV UPLO N-REF4261 ALPHA-REF4262 AP-REF4263 X-REF4264 INCX-REF4265
               BETA-REF4266 Y-REF4267 INCY-REF4268))))

(CFFI:DEFCFUN ("cspr_" %%CSPR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %CSPR (UPLO N ALPHA X INCX AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4270 ':INT32)
                              (ALPHA-REF4271
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF4273 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4270 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF4271
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4273 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF4272 X) (AP-REF4274 AP))
      (%%CSPR UPLO N-REF4270 ALPHA-REF4271 X-REF4272 INCX-REF4273 AP-REF4274))))

(CFFI:DEFCFUN ("csprfs_" %%CSPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSPRFS
                   (UPLO N NRHS AP AFP IPIV B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4276 ':INT32) (NRHS-REF4277 ':INT32)
                              (LDB-REF4282 ':INT32) (LDX-REF4284 ':INT32)
                              (INFO-REF4289 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4276 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4277 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4282 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4284 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4289 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4278 AP) (AFP-REF4279 AFP)
                                            (IPIV-REF4280 IPIV) (B-REF4281 B)
                                            (X-REF4283 X) (FERR-REF4285 FERR)
                                            (BERR-REF4286 BERR)
                                            (WORK-REF4287 WORK)
                                            (RWORK-REF4288 RWORK))
      (%%CSPRFS UPLO N-REF4276 NRHS-REF4277 AP-REF4278 AFP-REF4279 IPIV-REF4280
                B-REF4281 LDB-REF4282 X-REF4283 LDX-REF4284 FERR-REF4285
                BERR-REF4286 WORK-REF4287 RWORK-REF4288 INFO-REF4289))))

(CFFI:DEFCFUN ("cspsv_" %%CSPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4291 ':INT32) (NRHS-REF4292 ':INT32)
                              (LDB-REF4296 ':INT32) (INFO-REF4297 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4291 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4292 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4296 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4297 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4293 AP) (IPIV-REF4294 IPIV)
                                            (B-REF4295 B))
      (%%CSPSV UPLO N-REF4291 NRHS-REF4292 AP-REF4293 IPIV-REF4294 B-REF4295
               LDB-REF4296 INFO-REF4297))))

(CFFI:DEFCFUN ("cspsvx_" %%CSPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSPSVX
                   (FACT UPLO N NRHS AP AFP IPIV B LDB X LDX RCOND FERR BERR
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4300 ':INT32) (NRHS-REF4301 ':INT32)
                              (LDB-REF4306 ':INT32) (LDX-REF4308 ':INT32)
                              (RCOND-REF4309 ':FLOAT) (INFO-REF4314 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4300 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4301 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4306 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4308 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4309 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4314 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4302 AP) (AFP-REF4303 AFP)
                                            (IPIV-REF4304 IPIV) (B-REF4305 B)
                                            (X-REF4307 X) (FERR-REF4310 FERR)
                                            (BERR-REF4311 BERR)
                                            (WORK-REF4312 WORK)
                                            (RWORK-REF4313 RWORK))
      (%%CSPSVX FACT UPLO N-REF4300 NRHS-REF4301 AP-REF4302 AFP-REF4303
                IPIV-REF4304 B-REF4305 LDB-REF4306 X-REF4307 LDX-REF4308
                RCOND-REF4309 FERR-REF4310 BERR-REF4311 WORK-REF4312
                RWORK-REF4313 INFO-REF4314))))

(CFFI:DEFCFUN ("csptrf_" %%CSPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSPTRF (UPLO N AP IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4316 ':INT32) (INFO-REF4319 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4316 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4319 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4317 AP) (IPIV-REF4318 IPIV))
      (%%CSPTRF UPLO N-REF4316 AP-REF4317 IPIV-REF4318 INFO-REF4319))))

(CFFI:DEFCFUN ("csptri_" %%CSPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4321 ':INT32) (INFO-REF4325 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4321 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4325 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4322 AP) (IPIV-REF4323 IPIV)
                                            (WORK-REF4324 WORK))
      (%%CSPTRI UPLO N-REF4321 AP-REF4322 IPIV-REF4323 WORK-REF4324
                INFO-REF4325))))

(CFFI:DEFCFUN ("csptrs_" %%CSPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSPTRS (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4327 ':INT32) (NRHS-REF4328 ':INT32)
                              (LDB-REF4332 ':INT32) (INFO-REF4333 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4327 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4328 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4332 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4333 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4329 AP) (IPIV-REF4330 IPIV)
                                            (B-REF4331 B))
      (%%CSPTRS UPLO N-REF4327 NRHS-REF4328 AP-REF4329 IPIV-REF4330 B-REF4331
                LDB-REF4332 INFO-REF4333))))

(CFFI:DEFCFUN ("csrscl_" %%CSRSCL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (SA :POINTER)
  (SX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CSRSCL (N SA SX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSRSCL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4334 ':INT32) (SA-REF4335 ':FLOAT)
                              (INCX-REF4337 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4334 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF4335 :FLOAT) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4337 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF4336 SX))
      (%%CSRSCL N-REF4334 SA-REF4335 SX-REF4336 INCX-REF4337))))

(CFFI:DEFCFUN ("cstedc_" %%CSTEDC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSTEDC
                   (COMPZ N D E Z LDZ WORK LWORK RWORK LRWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSTEDC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4339 ':INT32) (LDZ-REF4343 ':INT32)
                              (LWORK-REF4345 ':INT32) (LRWORK-REF4347 ':INT32)
                              (LIWORK-REF4349 ':INT32) (INFO-REF4350 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4339 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4343 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4345 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF4347 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4349 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4350 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4340 D) (E-REF4341 E)
                                            (Z-REF4342 Z) (WORK-REF4344 WORK)
                                            (RWORK-REF4346 RWORK)
                                            (IWORK-REF4348 IWORK))
      (%%CSTEDC COMPZ N-REF4339 D-REF4340 E-REF4341 Z-REF4342 LDZ-REF4343
                WORK-REF4344 LWORK-REF4345 RWORK-REF4346 LRWORK-REF4347
                IWORK-REF4348 LIWORK-REF4349 INFO-REF4350))))

(CFFI:DEFCFUN ("cstegr_" %%CSTEGR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSTEGR
                   (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
                    LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSTEGR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4353 ':INT32) (VL-REF4356 ':FLOAT)
                              (VU-REF4357 ':FLOAT) (IL-REF4358 ':INT32)
                              (IU-REF4359 ':INT32) (ABSTOL-REF4360 ':FLOAT)
                              (M-REF4361 ':INT32) (LDZ-REF4364 ':INT32)
                              (LWORK-REF4367 ':INT32) (LIWORK-REF4369 ':INT32)
                              (INFO-REF4370 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4353 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF4356 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF4357 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF4358 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF4359 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF4360 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4361 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4364 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4367 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4369 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4370 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4354 D) (E-REF4355 E)
                                            (W-REF4362 W) (Z-REF4363 Z)
                                            (ISUPPZ-REF4365 ISUPPZ)
                                            (WORK-REF4366 WORK)
                                            (IWORK-REF4368 IWORK))
      (%%CSTEGR JOBZ RANGE N-REF4353 D-REF4354 E-REF4355 VL-REF4356 VU-REF4357
                IL-REF4358 IU-REF4359 ABSTOL-REF4360 M-REF4361 W-REF4362
                Z-REF4363 LDZ-REF4364 ISUPPZ-REF4365 WORK-REF4366 LWORK-REF4367
                IWORK-REF4368 LIWORK-REF4369 INFO-REF4370))))

(CFFI:DEFCFUN ("cstein_" %%CSTEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (M :POINTER)
  (W :POINTER)
  (IBLOCK :POINTER)
  (ISPLIT :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSTEIN
                   (N D E M W IBLOCK ISPLIT Z LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSTEIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4371 ':INT32) (M-REF4374 ':INT32)
                              (LDZ-REF4379 ':INT32) (INFO-REF4383 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4371 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4374 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4379 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4383 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4372 D) (E-REF4373 E)
                                            (W-REF4375 W)
                                            (IBLOCK-REF4376 IBLOCK)
                                            (ISPLIT-REF4377 ISPLIT)
                                            (Z-REF4378 Z) (WORK-REF4380 WORK)
                                            (IWORK-REF4381 IWORK)
                                            (IFAIL-REF4382 IFAIL))
      (%%CSTEIN N-REF4371 D-REF4372 E-REF4373 M-REF4374 W-REF4375
                IBLOCK-REF4376 ISPLIT-REF4377 Z-REF4378 LDZ-REF4379
                WORK-REF4380 IWORK-REF4381 IFAIL-REF4382 INFO-REF4383))))

(CFFI:DEFCFUN ("cstemr_" %%CSTEMR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NZC :POINTER)
  (ISUPPZ :POINTER)
  (TRYRAC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSTEMR
                   (JOBZ RANGE N D E VL VU IL IU M W Z LDZ NZC ISUPPZ TRYRAC
                    WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSTEMR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRYRAC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4386 ':INT32) (VL-REF4389 ':FLOAT)
                              (VU-REF4390 ':FLOAT) (IL-REF4391 ':INT32)
                              (IU-REF4392 ':INT32) (M-REF4393 ':INT32)
                              (LDZ-REF4396 ':INT32) (NZC-REF4397 ':INT32)
                              (TRYRAC-REF4399 ':INT32) (LWORK-REF4401 ':INT32)
                              (LIWORK-REF4403 ':INT32) (INFO-REF4404 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4386 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF4389 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF4390 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF4391 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF4392 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4393 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4396 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF4397 :INT32) NZC)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF4399 :INT32) TRYRAC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4401 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4403 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4404 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4387 D) (E-REF4388 E)
                                            (W-REF4394 W) (Z-REF4395 Z)
                                            (ISUPPZ-REF4398 ISUPPZ)
                                            (WORK-REF4400 WORK)
                                            (IWORK-REF4402 IWORK))
      (%%CSTEMR JOBZ RANGE N-REF4386 D-REF4387 E-REF4388 VL-REF4389 VU-REF4390
                IL-REF4391 IU-REF4392 M-REF4393 W-REF4394 Z-REF4395 LDZ-REF4396
                NZC-REF4397 ISUPPZ-REF4398 TRYRAC-REF4399 WORK-REF4400
                LWORK-REF4401 IWORK-REF4402 LIWORK-REF4403 INFO-REF4404))))

(CFFI:DEFCFUN ("csteqr_" %%CSTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSTEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4406 ':INT32) (LDZ-REF4410 ':INT32)
                              (INFO-REF4412 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4406 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4410 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4412 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4407 D) (E-REF4408 E)
                                            (Z-REF4409 Z) (WORK-REF4411 WORK))
      (%%CSTEQR COMPZ N-REF4406 D-REF4407 E-REF4408 Z-REF4409 LDZ-REF4410
                WORK-REF4411 INFO-REF4412))))

(CFFI:DEFCFUN ("csycon_" %%CSYCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYCON (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4414 ':INT32) (LDA-REF4416 ':INT32)
                              (ANORM-REF4418 ':FLOAT) (RCOND-REF4419 ':FLOAT)
                              (INFO-REF4421 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4414 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4416 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4418 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4419 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4421 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4415 A) (IPIV-REF4417 IPIV)
                                            (WORK-REF4420 WORK))
      (%%CSYCON UPLO N-REF4414 A-REF4415 LDA-REF4416 IPIV-REF4417 ANORM-REF4418
                RCOND-REF4419 WORK-REF4420 INFO-REF4421))))

(CFFI:DEFCFUN ("csycon_3_" %%CSYCON_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYCON_3 (UPLO N A LDA E IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYCON_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4423 ':INT32) (LDA-REF4425 ':INT32)
                              (ANORM-REF4428 ':FLOAT) (RCOND-REF4429 ':FLOAT)
                              (INFO-REF4431 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4423 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4425 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4428 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4429 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4431 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4424 A) (E-REF4426 E)
                                            (IPIV-REF4427 IPIV)
                                            (WORK-REF4430 WORK))
      (%%CSYCON_3 UPLO N-REF4423 A-REF4424 LDA-REF4425 E-REF4426 IPIV-REF4427
                  ANORM-REF4428 RCOND-REF4429 WORK-REF4430 INFO-REF4431))))

(CFFI:DEFCFUN ("csycon_rook_" %%CSYCON_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYCON_ROOK (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYCON_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4433 ':INT32) (LDA-REF4435 ':INT32)
                              (ANORM-REF4437 ':FLOAT) (RCOND-REF4438 ':FLOAT)
                              (INFO-REF4440 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4433 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4435 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4437 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4438 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4440 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4434 A) (IPIV-REF4436 IPIV)
                                            (WORK-REF4439 WORK))
      (%%CSYCON_ROOK UPLO N-REF4433 A-REF4434 LDA-REF4435 IPIV-REF4436
                     ANORM-REF4437 RCOND-REF4438 WORK-REF4439 INFO-REF4440))))

(CFFI:DEFCFUN ("csyconv_" %%CSYCONV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYCONV (UPLO WAY N A LDA IPIV E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYCONV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4443 ':INT32) (LDA-REF4445 ':INT32)
                              (INFO-REF4448 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4443 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4445 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4448 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4444 A) (IPIV-REF4446 IPIV)
                                            (E-REF4447 E))
      (%%CSYCONV UPLO WAY N-REF4443 A-REF4444 LDA-REF4445 IPIV-REF4446
                 E-REF4447 INFO-REF4448))))

(CFFI:DEFCFUN ("csyconvf_" %%CSYCONVF :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYCONVF (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYCONVF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4451 ':INT32) (LDA-REF4453 ':INT32)
                              (INFO-REF4456 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4451 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4453 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4456 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4452 A) (E-REF4454 E)
                                            (IPIV-REF4455 IPIV))
      (%%CSYCONVF UPLO WAY N-REF4451 A-REF4452 LDA-REF4453 E-REF4454
                  IPIV-REF4455 INFO-REF4456))))

(CFFI:DEFCFUN ("csyconvf_rook_" %%CSYCONVF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYCONVF_ROOK (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYCONVF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4459 ':INT32) (LDA-REF4461 ':INT32)
                              (INFO-REF4464 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4459 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4461 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4464 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4460 A) (E-REF4462 E)
                                            (IPIV-REF4463 IPIV))
      (%%CSYCONVF_ROOK UPLO WAY N-REF4459 A-REF4460 LDA-REF4461 E-REF4462
                       IPIV-REF4463 INFO-REF4464))))

(CFFI:DEFCFUN ("csyequb_" %%CSYEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYEQUB (UPLO N A LDA S SCOND AMAX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYEQUB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4466 ':INT32) (LDA-REF4468 ':INT32)
                              (SCOND-REF4470 ':FLOAT) (AMAX-REF4471 ':FLOAT)
                              (INFO-REF4473 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4466 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4468 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF4470 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF4471 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4473 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4467 A) (S-REF4469 S)
                                            (WORK-REF4472 WORK))
      (%%CSYEQUB UPLO N-REF4466 A-REF4467 LDA-REF4468 S-REF4469 SCOND-REF4470
                 AMAX-REF4471 WORK-REF4472 INFO-REF4473))))

(CFFI:DEFCFUN ("csymv_" %%CSYMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CSYMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4475 ':INT32)
                              (ALPHA-REF4476
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF4478 ':INT32) (INCX-REF4480 ':INT32)
                              (BETA-REF4481
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCY-REF4483 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4475 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF4476
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4478 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4480 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF4481
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF4483 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4477 A) (X-REF4479 X)
                                            (Y-REF4482 Y))
      (%%CSYMV UPLO N-REF4475 ALPHA-REF4476 A-REF4477 LDA-REF4478 X-REF4479
               INCX-REF4480 BETA-REF4481 Y-REF4482 INCY-REF4483))))

(CFFI:DEFCFUN ("csyr_" %%CSYR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %CSYR (UPLO N ALPHA X INCX A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4485 ':INT32)
                              (ALPHA-REF4486
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF4488 ':INT32) (LDA-REF4490 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4485 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF4486
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4488 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4490 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF4487 X) (A-REF4489 A))
      (%%CSYR UPLO N-REF4485 ALPHA-REF4486 X-REF4487 INCX-REF4488 A-REF4489
              LDA-REF4490))))

(CFFI:DEFCFUN ("csyrfs_" %%CSYRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYRFS
                   (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4492 ':INT32) (NRHS-REF4493 ':INT32)
                              (LDA-REF4495 ':INT32) (LDAF-REF4497 ':INT32)
                              (LDB-REF4500 ':INT32) (LDX-REF4502 ':INT32)
                              (INFO-REF4507 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4492 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4493 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4495 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4497 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4500 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4502 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4507 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4494 A) (AF-REF4496 AF)
                                            (IPIV-REF4498 IPIV) (B-REF4499 B)
                                            (X-REF4501 X) (FERR-REF4503 FERR)
                                            (BERR-REF4504 BERR)
                                            (WORK-REF4505 WORK)
                                            (RWORK-REF4506 RWORK))
      (%%CSYRFS UPLO N-REF4492 NRHS-REF4493 A-REF4494 LDA-REF4495 AF-REF4496
                LDAF-REF4497 IPIV-REF4498 B-REF4499 LDB-REF4500 X-REF4501
                LDX-REF4502 FERR-REF4503 BERR-REF4504 WORK-REF4505
                RWORK-REF4506 INFO-REF4507))))

(CFFI:DEFCFUN ("csyrfsx_" %%CSYRFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYRFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYRFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4510 ':INT32) (NRHS-REF4511 ':INT32)
                              (LDA-REF4513 ':INT32) (LDAF-REF4515 ':INT32)
                              (LDB-REF4519 ':INT32) (LDX-REF4521 ':INT32)
                              (RCOND-REF4522 ':FLOAT)
                              (N_ERR_BNDS-REF4524 ':INT32)
                              (NPARAMS-REF4527 ':INT32) (INFO-REF4531 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4510 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4511 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4513 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4515 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4519 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4521 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4522 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF4524 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF4527 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4531 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4512 A) (AF-REF4514 AF)
                                            (IPIV-REF4516 IPIV) (S-REF4517 S)
                                            (B-REF4518 B) (X-REF4520 X)
                                            (BERR-REF4523 BERR)
                                            (ERR_BNDS_NORM-REF4525
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF4526
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF4528 PARAMS)
                                            (WORK-REF4529 WORK)
                                            (RWORK-REF4530 RWORK))
      (%%CSYRFSX UPLO EQUED N-REF4510 NRHS-REF4511 A-REF4512 LDA-REF4513
                 AF-REF4514 LDAF-REF4515 IPIV-REF4516 S-REF4517 B-REF4518
                 LDB-REF4519 X-REF4520 LDX-REF4521 RCOND-REF4522 BERR-REF4523
                 N_ERR_BNDS-REF4524 ERR_BNDS_NORM-REF4525 ERR_BNDS_COMP-REF4526
                 NPARAMS-REF4527 PARAMS-REF4528 WORK-REF4529 RWORK-REF4530
                 INFO-REF4531))))

(CFFI:DEFCFUN ("csysv_" %%CSYSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYSV (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4533 ':INT32) (NRHS-REF4534 ':INT32)
                              (LDA-REF4536 ':INT32) (LDB-REF4539 ':INT32)
                              (LWORK-REF4541 ':INT32) (INFO-REF4542 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4533 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4534 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4536 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4539 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4541 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4542 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4535 A) (IPIV-REF4537 IPIV)
                                            (B-REF4538 B) (WORK-REF4540 WORK))
      (%%CSYSV UPLO N-REF4533 NRHS-REF4534 A-REF4535 LDA-REF4536 IPIV-REF4537
               B-REF4538 LDB-REF4539 WORK-REF4540 LWORK-REF4541 INFO-REF4542))))

(CFFI:DEFCFUN ("csysv_aa_" %%CSYSV_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYSV_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSV_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4544 ':INT32) (NRHS-REF4545 ':INT32)
                              (LDA-REF4547 ':INT32) (LDB-REF4550 ':INT32)
                              (LWORK-REF4552 ':INT32) (INFO-REF4553 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4544 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4545 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4547 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4550 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4552 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4553 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4546 A) (IPIV-REF4548 IPIV)
                                            (B-REF4549 B) (WORK-REF4551 WORK))
      (%%CSYSV_AA UPLO N-REF4544 NRHS-REF4545 A-REF4546 LDA-REF4547
                  IPIV-REF4548 B-REF4549 LDB-REF4550 WORK-REF4551 LWORK-REF4552
                  INFO-REF4553))))

(CFFI:DEFCFUN ("csysv_aa_2stage_" %%CSYSV_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYSV_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSV_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4555 ':INT32) (NRHS-REF4556 ':INT32)
                              (LDA-REF4558 ':INT32) (LTB-REF4560 ':INT32)
                              (LDB-REF4564 ':INT32) (LWORK-REF4566 ':INT32)
                              (INFO-REF4567 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4555 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4556 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4558 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF4560 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4564 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4566 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4567 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4557 A) (TB-REF4559 TB)
                                            (IPIV-REF4561 IPIV)
                                            (IPIV2-REF4562 IPIV2) (B-REF4563 B)
                                            (WORK-REF4565 WORK))
      (%%CSYSV_AA_2STAGE UPLO N-REF4555 NRHS-REF4556 A-REF4557 LDA-REF4558
                         TB-REF4559 LTB-REF4560 IPIV-REF4561 IPIV2-REF4562
                         B-REF4563 LDB-REF4564 WORK-REF4565 LWORK-REF4566
                         INFO-REF4567))))

(CFFI:DEFCFUN ("csysv_rk_" %%CSYSV_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYSV_RK (UPLO N NRHS A LDA E IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSV_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4569 ':INT32) (NRHS-REF4570 ':INT32)
                              (LDA-REF4572 ':INT32) (LDB-REF4576 ':INT32)
                              (LWORK-REF4578 ':INT32) (INFO-REF4579 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4569 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4570 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4572 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4576 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4578 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4579 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4571 A) (E-REF4573 E)
                                            (IPIV-REF4574 IPIV) (B-REF4575 B)
                                            (WORK-REF4577 WORK))
      (%%CSYSV_RK UPLO N-REF4569 NRHS-REF4570 A-REF4571 LDA-REF4572 E-REF4573
                  IPIV-REF4574 B-REF4575 LDB-REF4576 WORK-REF4577 LWORK-REF4578
                  INFO-REF4579))))

(CFFI:DEFCFUN ("csysv_rook_" %%CSYSV_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYSV_ROOK (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSV_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4581 ':INT32) (NRHS-REF4582 ':INT32)
                              (LDA-REF4584 ':INT32) (LDB-REF4587 ':INT32)
                              (LWORK-REF4589 ':INT32) (INFO-REF4590 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4581 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4582 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4584 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4587 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4589 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4590 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4583 A) (IPIV-REF4585 IPIV)
                                            (B-REF4586 B) (WORK-REF4588 WORK))
      (%%CSYSV_ROOK UPLO N-REF4581 NRHS-REF4582 A-REF4583 LDA-REF4584
                    IPIV-REF4585 B-REF4586 LDB-REF4587 WORK-REF4588
                    LWORK-REF4589 INFO-REF4590))))

(CFFI:DEFCFUN ("csysvx_" %%CSYSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYSVX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR
                    BERR WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4593 ':INT32) (NRHS-REF4594 ':INT32)
                              (LDA-REF4596 ':INT32) (LDAF-REF4598 ':INT32)
                              (LDB-REF4601 ':INT32) (LDX-REF4603 ':INT32)
                              (RCOND-REF4604 ':FLOAT) (LWORK-REF4608 ':INT32)
                              (INFO-REF4610 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4593 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4594 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4596 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4598 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4601 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4603 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4604 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4608 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4610 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4595 A) (AF-REF4597 AF)
                                            (IPIV-REF4599 IPIV) (B-REF4600 B)
                                            (X-REF4602 X) (FERR-REF4605 FERR)
                                            (BERR-REF4606 BERR)
                                            (WORK-REF4607 WORK)
                                            (RWORK-REF4609 RWORK))
      (%%CSYSVX FACT UPLO N-REF4593 NRHS-REF4594 A-REF4595 LDA-REF4596
                AF-REF4597 LDAF-REF4598 IPIV-REF4599 B-REF4600 LDB-REF4601
                X-REF4602 LDX-REF4603 RCOND-REF4604 FERR-REF4605 BERR-REF4606
                WORK-REF4607 LWORK-REF4608 RWORK-REF4609 INFO-REF4610))))

(CFFI:DEFCFUN ("csysvxx_" %%CSYSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYSVXX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4613 ':INT32) (NRHS-REF4614 ':INT32)
                              (LDA-REF4616 ':INT32) (LDAF-REF4618 ':INT32)
                              (LDB-REF4623 ':INT32) (LDX-REF4625 ':INT32)
                              (RCOND-REF4626 ':FLOAT) (RPVGRW-REF4627 ':FLOAT)
                              (N_ERR_BNDS-REF4629 ':INT32)
                              (NPARAMS-REF4632 ':INT32) (INFO-REF4636 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4613 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4614 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4616 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4618 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4623 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4625 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4626 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF4627 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF4629 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF4632 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4636 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4615 A) (AF-REF4617 AF)
                                            (IPIV-REF4619 IPIV) (S-REF4621 S)
                                            (B-REF4622 B) (X-REF4624 X)
                                            (BERR-REF4628 BERR)
                                            (ERR_BNDS_NORM-REF4630
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF4631
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF4633 PARAMS)
                                            (WORK-REF4634 WORK)
                                            (RWORK-REF4635 RWORK))
      (%%CSYSVXX FACT UPLO N-REF4613 NRHS-REF4614 A-REF4615 LDA-REF4616
                 AF-REF4617 LDAF-REF4618 IPIV-REF4619 EQUED S-REF4621 B-REF4622
                 LDB-REF4623 X-REF4624 LDX-REF4625 RCOND-REF4626 RPVGRW-REF4627
                 BERR-REF4628 N_ERR_BNDS-REF4629 ERR_BNDS_NORM-REF4630
                 ERR_BNDS_COMP-REF4631 NPARAMS-REF4632 PARAMS-REF4633
                 WORK-REF4634 RWORK-REF4635 INFO-REF4636))))

(CFFI:DEFCFUN ("csyswapr_" %%CSYSWAPR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (I1 :POINTER)
  (I2 :POINTER))

(COMMON-LISP:DEFUN %CSYSWAPR (UPLO N A LDA I1 I2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSWAPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4638 ':INT32) (LDA-REF4640 ':INT32)
                              (I1-REF4641 ':INT32) (I2-REF4642 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4638 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4640 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF4641 :INT32) I1)
    (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF4642 :INT32) I2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4639 A))
      (%%CSYSWAPR UPLO N-REF4638 A-REF4639 LDA-REF4640 I1-REF4641 I2-REF4642))))

(CFFI:DEFCFUN ("csytf2_" %%CSYTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTF2 (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4644 ':INT32) (LDA-REF4646 ':INT32)
                              (INFO-REF4648 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4644 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4646 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4648 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4645 A) (IPIV-REF4647 IPIV))
      (%%CSYTF2 UPLO N-REF4644 A-REF4645 LDA-REF4646 IPIV-REF4647
                INFO-REF4648))))

(CFFI:DEFCFUN ("csytf2_rk_" %%CSYTF2_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTF2_RK (UPLO N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTF2_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4650 ':INT32) (LDA-REF4652 ':INT32)
                              (INFO-REF4655 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4650 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4652 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4655 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4651 A) (E-REF4653 E)
                                            (IPIV-REF4654 IPIV))
      (%%CSYTF2_RK UPLO N-REF4650 A-REF4651 LDA-REF4652 E-REF4653 IPIV-REF4654
                   INFO-REF4655))))

(CFFI:DEFCFUN ("csytf2_rook_" %%CSYTF2_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTF2_ROOK (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTF2_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4657 ':INT32) (LDA-REF4659 ':INT32)
                              (INFO-REF4661 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4657 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4659 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4661 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4658 A) (IPIV-REF4660 IPIV))
      (%%CSYTF2_ROOK UPLO N-REF4657 A-REF4658 LDA-REF4659 IPIV-REF4660
                     INFO-REF4661))))

(CFFI:DEFCFUN ("csytrf_" %%CSYTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4663 ':INT32) (LDA-REF4665 ':INT32)
                              (LWORK-REF4668 ':INT32) (INFO-REF4669 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4663 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4665 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4668 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4669 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4664 A) (IPIV-REF4666 IPIV)
                                            (WORK-REF4667 WORK))
      (%%CSYTRF UPLO N-REF4663 A-REF4664 LDA-REF4665 IPIV-REF4666 WORK-REF4667
                LWORK-REF4668 INFO-REF4669))))

(CFFI:DEFCFUN ("csytrf_aa_" %%CSYTRF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4671 ':INT32) (LDA-REF4673 ':INT32)
                              (LWORK-REF4676 ':INT32) (INFO-REF4677 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4671 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4673 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4676 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4677 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4672 A) (IPIV-REF4674 IPIV)
                                            (WORK-REF4675 WORK))
      (%%CSYTRF_AA UPLO N-REF4671 A-REF4672 LDA-REF4673 IPIV-REF4674
                   WORK-REF4675 LWORK-REF4676 INFO-REF4677))))

(CFFI:DEFCFUN ("csytrf_aa_2stage_" %%CSYTRF_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRF_AA_2STAGE
                   (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRF_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4679 ':INT32) (LDA-REF4681 ':INT32)
                              (LTB-REF4683 ':INT32) (LWORK-REF4687 ':INT32)
                              (INFO-REF4688 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4679 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4681 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF4683 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4687 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4688 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4680 A) (TB-REF4682 TB)
                                            (IPIV-REF4684 IPIV)
                                            (IPIV2-REF4685 IPIV2)
                                            (WORK-REF4686 WORK))
      (%%CSYTRF_AA_2STAGE UPLO N-REF4679 A-REF4680 LDA-REF4681 TB-REF4682
                          LTB-REF4683 IPIV-REF4684 IPIV2-REF4685 WORK-REF4686
                          LWORK-REF4687 INFO-REF4688))))

(CFFI:DEFCFUN ("csytrf_rk_" %%CSYTRF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRF_RK (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4690 ':INT32) (LDA-REF4692 ':INT32)
                              (LWORK-REF4696 ':INT32) (INFO-REF4697 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4690 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4692 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4696 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4697 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4691 A) (E-REF4693 E)
                                            (IPIV-REF4694 IPIV)
                                            (WORK-REF4695 WORK))
      (%%CSYTRF_RK UPLO N-REF4690 A-REF4691 LDA-REF4692 E-REF4693 IPIV-REF4694
                   WORK-REF4695 LWORK-REF4696 INFO-REF4697))))

(CFFI:DEFCFUN ("csytrf_rook_" %%CSYTRF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRF_ROOK (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4699 ':INT32) (LDA-REF4701 ':INT32)
                              (LWORK-REF4704 ':INT32) (INFO-REF4705 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4699 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4701 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4704 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4705 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4700 A) (IPIV-REF4702 IPIV)
                                            (WORK-REF4703 WORK))
      (%%CSYTRF_ROOK UPLO N-REF4699 A-REF4700 LDA-REF4701 IPIV-REF4702
                     WORK-REF4703 LWORK-REF4704 INFO-REF4705))))

(CFFI:DEFCFUN ("csytri_" %%CSYTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRI (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4707 ':INT32) (LDA-REF4709 ':INT32)
                              (INFO-REF4712 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4707 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4709 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4712 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4708 A) (IPIV-REF4710 IPIV)
                                            (WORK-REF4711 WORK))
      (%%CSYTRI UPLO N-REF4707 A-REF4708 LDA-REF4709 IPIV-REF4710 WORK-REF4711
                INFO-REF4712))))

(CFFI:DEFCFUN ("csytri2_" %%CSYTRI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRI2 (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4714 ':INT32) (LDA-REF4716 ':INT32)
                              (LWORK-REF4719 ':INT32) (INFO-REF4720 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4714 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4716 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4719 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4720 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4715 A) (IPIV-REF4717 IPIV)
                                            (WORK-REF4718 WORK))
      (%%CSYTRI2 UPLO N-REF4714 A-REF4715 LDA-REF4716 IPIV-REF4717 WORK-REF4718
                 LWORK-REF4719 INFO-REF4720))))

(CFFI:DEFCFUN ("csytri2x_" %%CSYTRI2X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRI2X (UPLO N A LDA IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI2X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4722 ':INT32) (LDA-REF4724 ':INT32)
                              (NB-REF4727 ':INT32) (INFO-REF4728 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4722 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4724 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF4727 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4728 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4723 A) (IPIV-REF4725 IPIV)
                                            (WORK-REF4726 WORK))
      (%%CSYTRI2X UPLO N-REF4722 A-REF4723 LDA-REF4724 IPIV-REF4725
                  WORK-REF4726 NB-REF4727 INFO-REF4728))))

(CFFI:DEFCFUN ("csytri_3_" %%CSYTRI_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4730 ':INT32) (LDA-REF4732 ':INT32)
                              (LWORK-REF4736 ':INT32) (INFO-REF4737 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4730 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4732 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4736 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4737 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4731 A) (E-REF4733 E)
                                            (IPIV-REF4734 IPIV)
                                            (WORK-REF4735 WORK))
      (%%CSYTRI_3 UPLO N-REF4730 A-REF4731 LDA-REF4732 E-REF4733 IPIV-REF4734
                  WORK-REF4735 LWORK-REF4736 INFO-REF4737))))

(CFFI:DEFCFUN ("csytri_3x_" %%CSYTRI_3X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI_3X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4739 ':INT32) (LDA-REF4741 ':INT32)
                              (NB-REF4745 ':INT32) (INFO-REF4746 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4739 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4741 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF4745 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4746 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4740 A) (E-REF4742 E)
                                            (IPIV-REF4743 IPIV)
                                            (WORK-REF4744 WORK))
      (%%CSYTRI_3X UPLO N-REF4739 A-REF4740 LDA-REF4741 E-REF4742 IPIV-REF4743
                   WORK-REF4744 NB-REF4745 INFO-REF4746))))

(CFFI:DEFCFUN ("csytri_rook_" %%CSYTRI_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4748 ':INT32) (LDA-REF4750 ':INT32)
                              (INFO-REF4753 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4748 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4750 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4753 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4749 A) (IPIV-REF4751 IPIV)
                                            (WORK-REF4752 WORK))
      (%%CSYTRI_ROOK UPLO N-REF4748 A-REF4749 LDA-REF4750 IPIV-REF4751
                     WORK-REF4752 INFO-REF4753))))

(CFFI:DEFCFUN ("csytrs_" %%CSYTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4755 ':INT32) (NRHS-REF4756 ':INT32)
                              (LDA-REF4758 ':INT32) (LDB-REF4761 ':INT32)
                              (INFO-REF4762 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4755 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4756 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4758 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4761 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4762 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4757 A) (IPIV-REF4759 IPIV)
                                            (B-REF4760 B))
      (%%CSYTRS UPLO N-REF4755 NRHS-REF4756 A-REF4757 LDA-REF4758 IPIV-REF4759
                B-REF4760 LDB-REF4761 INFO-REF4762))))

(CFFI:DEFCFUN ("csytrs2_" %%CSYTRS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRS2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4764 ':INT32) (NRHS-REF4765 ':INT32)
                              (LDA-REF4767 ':INT32) (LDB-REF4770 ':INT32)
                              (INFO-REF4772 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4764 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4765 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4767 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4770 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4772 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4766 A) (IPIV-REF4768 IPIV)
                                            (B-REF4769 B) (WORK-REF4771 WORK))
      (%%CSYTRS2 UPLO N-REF4764 NRHS-REF4765 A-REF4766 LDA-REF4767 IPIV-REF4768
                 B-REF4769 LDB-REF4770 WORK-REF4771 INFO-REF4772))))

(CFFI:DEFCFUN ("csytrs_3_" %%CSYTRS_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRS_3 (UPLO N NRHS A LDA E IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRS_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4774 ':INT32) (NRHS-REF4775 ':INT32)
                              (LDA-REF4777 ':INT32) (LDB-REF4781 ':INT32)
                              (INFO-REF4782 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4774 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4775 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4777 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4781 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4782 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4776 A) (E-REF4778 E)
                                            (IPIV-REF4779 IPIV) (B-REF4780 B))
      (%%CSYTRS_3 UPLO N-REF4774 NRHS-REF4775 A-REF4776 LDA-REF4777 E-REF4778
                  IPIV-REF4779 B-REF4780 LDB-REF4781 INFO-REF4782))))

(CFFI:DEFCFUN ("csytrs_aa_" %%CSYTRS_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRS_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRS_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4784 ':INT32) (NRHS-REF4785 ':INT32)
                              (LDA-REF4787 ':INT32) (LDB-REF4790 ':INT32)
                              (LWORK-REF4792 ':INT32) (INFO-REF4793 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4784 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4785 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4787 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4790 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4792 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4793 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4786 A) (IPIV-REF4788 IPIV)
                                            (B-REF4789 B) (WORK-REF4791 WORK))
      (%%CSYTRS_AA UPLO N-REF4784 NRHS-REF4785 A-REF4786 LDA-REF4787
                   IPIV-REF4788 B-REF4789 LDB-REF4790 WORK-REF4791
                   LWORK-REF4792 INFO-REF4793))))

(CFFI:DEFCFUN ("csytrs_aa_2stage_" %%CSYTRS_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRS_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRS_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4795 ':INT32) (NRHS-REF4796 ':INT32)
                              (LDA-REF4798 ':INT32) (LTB-REF4800 ':INT32)
                              (LDB-REF4804 ':INT32) (INFO-REF4805 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4795 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4796 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4798 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF4800 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4804 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4805 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4797 A) (TB-REF4799 TB)
                                            (IPIV-REF4801 IPIV)
                                            (IPIV2-REF4802 IPIV2) (B-REF4803 B))
      (%%CSYTRS_AA_2STAGE UPLO N-REF4795 NRHS-REF4796 A-REF4797 LDA-REF4798
                          TB-REF4799 LTB-REF4800 IPIV-REF4801 IPIV2-REF4802
                          B-REF4803 LDB-REF4804 INFO-REF4805))))

(CFFI:DEFCFUN ("csytrs_rook_" %%CSYTRS_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CSYTRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRS_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4807 ':INT32) (NRHS-REF4808 ':INT32)
                              (LDA-REF4810 ':INT32) (LDB-REF4813 ':INT32)
                              (INFO-REF4814 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4807 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4808 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4810 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4813 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4814 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4809 A) (IPIV-REF4811 IPIV)
                                            (B-REF4812 B))
      (%%CSYTRS_ROOK UPLO N-REF4807 NRHS-REF4808 A-REF4809 LDA-REF4810
                     IPIV-REF4811 B-REF4812 LDB-REF4813 INFO-REF4814))))

(CFFI:DEFCFUN ("ctbcon_" %%CTBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTBCON (NORM UPLO DIAG N KD AB LDAB RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4818 ':INT32) (KD-REF4819 ':INT32)
                              (LDAB-REF4821 ':INT32) (RCOND-REF4822 ':FLOAT)
                              (INFO-REF4825 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4818 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF4819 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4821 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4822 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4825 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4820 AB) (WORK-REF4823 WORK)
                                            (RWORK-REF4824 RWORK))
      (%%CTBCON NORM UPLO DIAG N-REF4818 KD-REF4819 AB-REF4820 LDAB-REF4821
                RCOND-REF4822 WORK-REF4823 RWORK-REF4824 INFO-REF4825))))

(CFFI:DEFCFUN ("ctbrfs_" %%CTBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTBRFS
                   (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB X LDX FERR BERR
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4829 ':INT32) (KD-REF4830 ':INT32)
                              (NRHS-REF4831 ':INT32) (LDAB-REF4833 ':INT32)
                              (LDB-REF4835 ':INT32) (LDX-REF4837 ':INT32)
                              (INFO-REF4842 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4829 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF4830 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4831 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4833 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4835 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4837 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4842 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4832 AB) (B-REF4834 B)
                                            (X-REF4836 X) (FERR-REF4838 FERR)
                                            (BERR-REF4839 BERR)
                                            (WORK-REF4840 WORK)
                                            (RWORK-REF4841 RWORK))
      (%%CTBRFS UPLO TRANS DIAG N-REF4829 KD-REF4830 NRHS-REF4831 AB-REF4832
                LDAB-REF4833 B-REF4834 LDB-REF4835 X-REF4836 LDX-REF4837
                FERR-REF4838 BERR-REF4839 WORK-REF4840 RWORK-REF4841
                INFO-REF4842))))

(CFFI:DEFCFUN ("ctbtrs_" %%CTBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTBTRS (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4846 ':INT32) (KD-REF4847 ':INT32)
                              (NRHS-REF4848 ':INT32) (LDAB-REF4850 ':INT32)
                              (LDB-REF4852 ':INT32) (INFO-REF4853 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4846 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF4847 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4848 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4850 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4852 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4853 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4849 AB) (B-REF4851 B))
      (%%CTBTRS UPLO TRANS DIAG N-REF4846 KD-REF4847 NRHS-REF4848 AB-REF4849
                LDAB-REF4850 B-REF4851 LDB-REF4852 INFO-REF4853))))

(CFFI:DEFCFUN ("ctfsm_" %%CTFSM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %CTFSM (TRANSR SIDE UPLO TRANS DIAG M N ALPHA A B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTFSM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4859 ':INT32) (N-REF4860 ':INT32)
                              (ALPHA-REF4861
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDB-REF4864 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4859 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4860 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF4861
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4864 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4862 A) (B-REF4863 B))
      (%%CTFSM TRANSR SIDE UPLO TRANS DIAG M-REF4859 N-REF4860 ALPHA-REF4861
               A-REF4862 B-REF4863 LDB-REF4864))))

(CFFI:DEFCFUN ("ctftri_" %%CTFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTFTRI (TRANSR UPLO DIAG N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTFTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4868 ':INT32) (INFO-REF4870 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4868 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4870 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4869 A))
      (%%CTFTRI TRANSR UPLO DIAG N-REF4868 A-REF4869 INFO-REF4870))))

(CFFI:DEFCFUN ("ctfttp_" %%CTFTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (ARF :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTFTTP (TRANSR UPLO N ARF AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTFTTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ARF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4873 ':INT32) (INFO-REF4876 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4873 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4876 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF4874 ARF) (AP-REF4875 AP))
      (%%CTFTTP TRANSR UPLO N-REF4873 ARF-REF4874 AP-REF4875 INFO-REF4876))))

(CFFI:DEFCFUN ("ctfttr_" %%CTFTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (ARF :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTFTTR (TRANSR UPLO N ARF A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTFTTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ARF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4879 ':INT32) (LDA-REF4882 ':INT32)
                              (INFO-REF4883 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4879 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4882 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4883 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF4880 ARF) (A-REF4881 A))
      (%%CTFTTR TRANSR UPLO N-REF4879 ARF-REF4880 A-REF4881 LDA-REF4882
                INFO-REF4883))))

(CFFI:DEFCFUN ("ctgevc_" %%CTGEVC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (S :POINTER)
  (LDS :POINTER)
  (P :POINTER)
  (LDP :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTGEVC
                   (SIDE HOWMNY SELECT N S LDS P LDP VL LDVL VR LDVR MM M WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGEVC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4887 ':INT32) (LDS-REF4889 ':INT32)
                              (LDP-REF4891 ':INT32) (LDVL-REF4893 ':INT32)
                              (LDVR-REF4895 ':INT32) (MM-REF4896 ':INT32)
                              (M-REF4897 ':INT32) (INFO-REF4900 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4887 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF4889 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF4891 :INT32) LDP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF4893 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF4895 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF4896 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4897 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4900 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF4886 SELECT)
                                            (S-REF4888 S) (P-REF4890 P)
                                            (VL-REF4892 VL) (VR-REF4894 VR)
                                            (WORK-REF4898 WORK)
                                            (RWORK-REF4899 RWORK))
      (%%CTGEVC SIDE HOWMNY SELECT-REF4886 N-REF4887 S-REF4888 LDS-REF4889
                P-REF4890 LDP-REF4891 VL-REF4892 LDVL-REF4893 VR-REF4894
                LDVR-REF4895 MM-REF4896 M-REF4897 WORK-REF4898 RWORK-REF4899
                INFO-REF4900))))

(CFFI:DEFCFUN ("ctgex2_" %%CTGEX2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (J1 :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTGEX2 (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ J1 INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGEX2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF4901 ':INT32) (WANTZ-REF4902 ':INT32)
                              (N-REF4903 ':INT32) (LDA-REF4905 ':INT32)
                              (LDB-REF4907 ':INT32) (LDQ-REF4909 ':INT32)
                              (LDZ-REF4911 ':INT32) (J1-REF4912 ':INT32)
                              (INFO-REF4913 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF4901 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF4902 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4903 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4905 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4907 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4909 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4911 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF4912 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4913 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4904 A) (B-REF4906 B)
                                            (Q-REF4908 Q) (Z-REF4910 Z))
      (%%CTGEX2 WANTQ-REF4901 WANTZ-REF4902 N-REF4903 A-REF4904 LDA-REF4905
                B-REF4906 LDB-REF4907 Q-REF4908 LDQ-REF4909 Z-REF4910
                LDZ-REF4911 J1-REF4912 INFO-REF4913))))

(CFFI:DEFCFUN ("ctgexc_" %%CTGEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (IFST :POINTER)
  (ILST :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTGEXC
                   (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ IFST ILST INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGEXC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF4914 ':INT32) (WANTZ-REF4915 ':INT32)
                              (N-REF4916 ':INT32) (LDA-REF4918 ':INT32)
                              (LDB-REF4920 ':INT32) (LDQ-REF4922 ':INT32)
                              (LDZ-REF4924 ':INT32) (IFST-REF4925 ':INT32)
                              (ILST-REF4926 ':INT32) (INFO-REF4927 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF4914 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF4915 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4916 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4918 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4920 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4922 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4924 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF4925 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF4926 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4927 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4917 A) (B-REF4919 B)
                                            (Q-REF4921 Q) (Z-REF4923 Z))
      (%%CTGEXC WANTQ-REF4914 WANTZ-REF4915 N-REF4916 A-REF4917 LDA-REF4918
                B-REF4919 LDB-REF4920 Q-REF4921 LDQ-REF4922 Z-REF4923
                LDZ-REF4924 IFST-REF4925 ILST-REF4926 INFO-REF4927))))

(CFFI:DEFCFUN ("ctgsen_" %%CTGSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (M :POINTER)
  (PL :POINTER)
  (PR :POINTER)
  (DIF :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTGSEN
                   (IJOB WANTQ WANTZ SELECT N A LDA B LDB ALPHA BETA Q LDQ Z
                    LDZ M PL PR DIF WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGSEN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF4928 ':INT32) (WANTQ-REF4929 ':INT32)
                              (WANTZ-REF4930 ':INT32) (N-REF4932 ':INT32)
                              (LDA-REF4934 ':INT32) (LDB-REF4936 ':INT32)
                              (LDQ-REF4940 ':INT32) (LDZ-REF4942 ':INT32)
                              (M-REF4943 ':INT32) (PL-REF4944 ':FLOAT)
                              (PR-REF4945 ':FLOAT) (LWORK-REF4948 ':INT32)
                              (LIWORK-REF4950 ':INT32) (INFO-REF4951 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF4928 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF4929 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF4930 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4932 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4934 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4936 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4940 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4942 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4943 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF4944 :FLOAT) PL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF4945 :FLOAT) PR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4948 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4950 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4951 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF4931 SELECT)
                                            (A-REF4933 A) (B-REF4935 B)
                                            (ALPHA-REF4937 ALPHA)
                                            (BETA-REF4938 BETA) (Q-REF4939 Q)
                                            (Z-REF4941 Z) (DIF-REF4946 DIF)
                                            (WORK-REF4947 WORK)
                                            (IWORK-REF4949 IWORK))
      (%%CTGSEN IJOB-REF4928 WANTQ-REF4929 WANTZ-REF4930 SELECT-REF4931
                N-REF4932 A-REF4933 LDA-REF4934 B-REF4935 LDB-REF4936
                ALPHA-REF4937 BETA-REF4938 Q-REF4939 LDQ-REF4940 Z-REF4941
                LDZ-REF4942 M-REF4943 PL-REF4944 PR-REF4945 DIF-REF4946
                WORK-REF4947 LWORK-REF4948 IWORK-REF4949 LIWORK-REF4950
                INFO-REF4951))))

(CFFI:DEFCFUN ("ctgsja_" %%CTGSJA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TOLA :POINTER)
  (TOLB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (NCYCLE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTGSJA
                   (JOBU JOBV JOBQ M P N K L A LDA B LDB TOLA TOLB ALPHA BETA U
                    LDU V LDV Q LDQ WORK NCYCLE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGSJA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCYCLE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4955 ':INT32) (P-REF4956 ':INT32)
                              (N-REF4957 ':INT32) (K-REF4958 ':INT32)
                              (L-REF4959 ':INT32) (LDA-REF4961 ':INT32)
                              (LDB-REF4963 ':INT32) (TOLA-REF4964 ':FLOAT)
                              (TOLB-REF4965 ':FLOAT) (LDU-REF4969 ':INT32)
                              (LDV-REF4971 ':INT32) (LDQ-REF4973 ':INT32)
                              (NCYCLE-REF4975 ':INT32) (INFO-REF4976 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4955 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF4956 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4957 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF4958 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF4959 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4961 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4963 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF4964 :FLOAT) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF4965 :FLOAT) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF4969 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF4971 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4973 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF4975 :INT32) NCYCLE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4976 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4960 A) (B-REF4962 B)
                                            (ALPHA-REF4966 ALPHA)
                                            (BETA-REF4967 BETA) (U-REF4968 U)
                                            (V-REF4970 V) (Q-REF4972 Q)
                                            (WORK-REF4974 WORK))
      (%%CTGSJA JOBU JOBV JOBQ M-REF4955 P-REF4956 N-REF4957 K-REF4958
                L-REF4959 A-REF4960 LDA-REF4961 B-REF4962 LDB-REF4963
                TOLA-REF4964 TOLB-REF4965 ALPHA-REF4966 BETA-REF4967 U-REF4968
                LDU-REF4969 V-REF4970 LDV-REF4971 Q-REF4972 LDQ-REF4973
                WORK-REF4974 NCYCLE-REF4975 INFO-REF4976))))

(CFFI:DEFCFUN ("ctgsna_" %%CTGSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (S :POINTER)
  (DIF :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTGSNA
                   (JOB HOWMNY SELECT N A LDA B LDB VL LDVL VR LDVR S DIF MM M
                    WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGSNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4980 ':INT32) (LDA-REF4982 ':INT32)
                              (LDB-REF4984 ':INT32) (LDVL-REF4986 ':INT32)
                              (LDVR-REF4988 ':INT32) (MM-REF4991 ':INT32)
                              (M-REF4992 ':INT32) (LWORK-REF4994 ':INT32)
                              (INFO-REF4996 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4980 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4982 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4984 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF4986 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF4988 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF4991 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4992 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4994 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4996 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF4979 SELECT)
                                            (A-REF4981 A) (B-REF4983 B)
                                            (VL-REF4985 VL) (VR-REF4987 VR)
                                            (S-REF4989 S) (DIF-REF4990 DIF)
                                            (WORK-REF4993 WORK)
                                            (IWORK-REF4995 IWORK))
      (%%CTGSNA JOB HOWMNY SELECT-REF4979 N-REF4980 A-REF4981 LDA-REF4982
                B-REF4983 LDB-REF4984 VL-REF4985 LDVL-REF4986 VR-REF4987
                LDVR-REF4988 S-REF4989 DIF-REF4990 MM-REF4991 M-REF4992
                WORK-REF4993 LWORK-REF4994 IWORK-REF4995 INFO-REF4996))))

(CFFI:DEFCFUN ("ctgsy2_" %%CTGSY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (IJOB :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (D :POINTER)
  (LDD :POINTER)
  (E :POINTER)
  (LDE :POINTER)
  (F :POINTER)
  (LDF :POINTER)
  (SCALE :POINTER)
  (RDSUM :POINTER)
  (RDSCAL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTGSY2
                   (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE
                    RDSUM RDSCAL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGSY2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSUM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSCAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF4998 ':INT32) (M-REF4999 ':INT32)
                              (N-REF5000 ':INT32) (LDA-REF5002 ':INT32)
                              (LDB-REF5004 ':INT32) (LDC-REF5006 ':INT32)
                              (LDD-REF5008 ':INT32) (LDE-REF5010 ':INT32)
                              (LDF-REF5012 ':INT32) (SCALE-REF5013 ':FLOAT)
                              (RDSUM-REF5014 ':FLOAT) (RDSCAL-REF5015 ':FLOAT)
                              (INFO-REF5016 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF4998 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4999 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5000 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5002 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5004 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5006 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF5008 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF5010 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF5012 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF5013 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF5014 :FLOAT) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF5015 :FLOAT) RDSCAL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5016 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5001 A) (B-REF5003 B)
                                            (C-REF5005 C) (D-REF5007 D)
                                            (E-REF5009 E) (F-REF5011 F))
      (%%CTGSY2 TRANS IJOB-REF4998 M-REF4999 N-REF5000 A-REF5001 LDA-REF5002
                B-REF5003 LDB-REF5004 C-REF5005 LDC-REF5006 D-REF5007
                LDD-REF5008 E-REF5009 LDE-REF5010 F-REF5011 LDF-REF5012
                SCALE-REF5013 RDSUM-REF5014 RDSCAL-REF5015 INFO-REF5016))))

(CFFI:DEFCFUN ("ctgsyl_" %%CTGSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (IJOB :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (D :POINTER)
  (LDD :POINTER)
  (E :POINTER)
  (LDE :POINTER)
  (F :POINTER)
  (LDF :POINTER)
  (SCALE :POINTER)
  (DIF :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTGSYL
                   (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE
                    DIF WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGSYL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DIF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF5018 ':INT32) (M-REF5019 ':INT32)
                              (N-REF5020 ':INT32) (LDA-REF5022 ':INT32)
                              (LDB-REF5024 ':INT32) (LDC-REF5026 ':INT32)
                              (LDD-REF5028 ':INT32) (LDE-REF5030 ':INT32)
                              (LDF-REF5032 ':INT32) (SCALE-REF5033 ':FLOAT)
                              (DIF-REF5034 ':FLOAT) (LWORK-REF5036 ':INT32)
                              (INFO-REF5038 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF5018 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5019 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5020 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5022 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5024 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5026 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF5028 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF5030 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF5032 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF5033 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF5034 :FLOAT) DIF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5036 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5038 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5021 A) (B-REF5023 B)
                                            (C-REF5025 C) (D-REF5027 D)
                                            (E-REF5029 E) (F-REF5031 F)
                                            (WORK-REF5035 WORK)
                                            (IWORK-REF5037 IWORK))
      (%%CTGSYL TRANS IJOB-REF5018 M-REF5019 N-REF5020 A-REF5021 LDA-REF5022
                B-REF5023 LDB-REF5024 C-REF5025 LDC-REF5026 D-REF5027
                LDD-REF5028 E-REF5029 LDE-REF5030 F-REF5031 LDF-REF5032
                SCALE-REF5033 DIF-REF5034 WORK-REF5035 LWORK-REF5036
                IWORK-REF5037 INFO-REF5038))))

(CFFI:DEFCFUN ("ctpcon_" %%CTPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPCON (NORM UPLO DIAG N AP RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5042 ':INT32) (RCOND-REF5044 ':FLOAT)
                              (INFO-REF5047 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5042 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5044 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5047 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5043 AP) (WORK-REF5045 WORK)
                                            (RWORK-REF5046 RWORK))
      (%%CTPCON NORM UPLO DIAG N-REF5042 AP-REF5043 RCOND-REF5044 WORK-REF5045
                RWORK-REF5046 INFO-REF5047))))

(CFFI:DEFCFUN ("ctplqt_" %%CTPLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (MB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPLQT (M N L MB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPLQT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5048 ':INT32) (N-REF5049 ':INT32)
                              (L-REF5050 ':INT32) (MB-REF5051 ':INT32)
                              (LDA-REF5053 ':INT32) (LDB-REF5055 ':INT32)
                              (LDT-REF5057 ':INT32) (INFO-REF5059 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5048 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5049 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5050 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF5051 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5053 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5055 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5057 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5059 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5052 A) (B-REF5054 B)
                                            (T-REF5056 T) (WORK-REF5058 WORK))
      (%%CTPLQT M-REF5048 N-REF5049 L-REF5050 MB-REF5051 A-REF5052 LDA-REF5053
                B-REF5054 LDB-REF5055 T-REF5056 LDT-REF5057 WORK-REF5058
                INFO-REF5059))))

(CFFI:DEFCFUN ("ctplqt2_" %%CTPLQT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPLQT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPLQT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5060 ':INT32) (N-REF5061 ':INT32)
                              (L-REF5062 ':INT32) (LDA-REF5064 ':INT32)
                              (LDB-REF5066 ':INT32) (LDT-REF5068 ':INT32)
                              (INFO-REF5069 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5060 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5061 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5062 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5064 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5066 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5068 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5069 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5063 A) (B-REF5065 B)
                                            (T-REF5067 T))
      (%%CTPLQT2 M-REF5060 N-REF5061 L-REF5062 A-REF5063 LDA-REF5064 B-REF5065
                 LDB-REF5066 T-REF5067 LDT-REF5068 INFO-REF5069))))

(CFFI:DEFCFUN ("ctpmlqt_" %%CTPMLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (MB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPMLQT
                   (SIDE TRANS M N K L MB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPMLQT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5072 ':INT32) (N-REF5073 ':INT32)
                              (K-REF5074 ':INT32) (L-REF5075 ':INT32)
                              (MB-REF5076 ':INT32) (LDV-REF5078 ':INT32)
                              (LDT-REF5080 ':INT32) (LDA-REF5082 ':INT32)
                              (LDB-REF5084 ':INT32) (INFO-REF5086 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5072 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5073 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5074 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5075 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF5076 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF5078 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5080 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5082 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5084 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5086 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF5077 V) (T-REF5079 T)
                                            (A-REF5081 A) (B-REF5083 B)
                                            (WORK-REF5085 WORK))
      (%%CTPMLQT SIDE TRANS M-REF5072 N-REF5073 K-REF5074 L-REF5075 MB-REF5076
                 V-REF5077 LDV-REF5078 T-REF5079 LDT-REF5080 A-REF5081
                 LDA-REF5082 B-REF5083 LDB-REF5084 WORK-REF5085 INFO-REF5086))))

(CFFI:DEFCFUN ("ctpmqrt_" %%CTPMQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (NB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPMQRT
                   (SIDE TRANS M N K L NB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPMQRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5089 ':INT32) (N-REF5090 ':INT32)
                              (K-REF5091 ':INT32) (L-REF5092 ':INT32)
                              (NB-REF5093 ':INT32) (LDV-REF5095 ':INT32)
                              (LDT-REF5097 ':INT32) (LDA-REF5099 ':INT32)
                              (LDB-REF5101 ':INT32) (INFO-REF5103 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5089 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5090 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5091 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5092 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF5093 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF5095 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5097 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5099 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5101 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5103 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF5094 V) (T-REF5096 T)
                                            (A-REF5098 A) (B-REF5100 B)
                                            (WORK-REF5102 WORK))
      (%%CTPMQRT SIDE TRANS M-REF5089 N-REF5090 K-REF5091 L-REF5092 NB-REF5093
                 V-REF5094 LDV-REF5095 T-REF5096 LDT-REF5097 A-REF5098
                 LDA-REF5099 B-REF5100 LDB-REF5101 WORK-REF5102 INFO-REF5103))))

(CFFI:DEFCFUN ("ctpqrt_" %%CTPQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPQRT (M N L NB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPQRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5104 ':INT32) (N-REF5105 ':INT32)
                              (L-REF5106 ':INT32) (NB-REF5107 ':INT32)
                              (LDA-REF5109 ':INT32) (LDB-REF5111 ':INT32)
                              (LDT-REF5113 ':INT32) (INFO-REF5115 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5104 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5105 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5106 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF5107 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5109 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5111 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5113 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5115 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5108 A) (B-REF5110 B)
                                            (T-REF5112 T) (WORK-REF5114 WORK))
      (%%CTPQRT M-REF5104 N-REF5105 L-REF5106 NB-REF5107 A-REF5108 LDA-REF5109
                B-REF5110 LDB-REF5111 T-REF5112 LDT-REF5113 WORK-REF5114
                INFO-REF5115))))

(CFFI:DEFCFUN ("ctpqrt2_" %%CTPQRT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPQRT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPQRT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5116 ':INT32) (N-REF5117 ':INT32)
                              (L-REF5118 ':INT32) (LDA-REF5120 ':INT32)
                              (LDB-REF5122 ':INT32) (LDT-REF5124 ':INT32)
                              (INFO-REF5125 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5116 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5117 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5118 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5120 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5122 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5124 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5125 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5119 A) (B-REF5121 B)
                                            (T-REF5123 T))
      (%%CTPQRT2 M-REF5116 N-REF5117 L-REF5118 A-REF5119 LDA-REF5120 B-REF5121
                 LDB-REF5122 T-REF5123 LDT-REF5124 INFO-REF5125))))

(CFFI:DEFCFUN ("ctprfb_" %%CTPRFB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %CTPRFB
                   (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT A LDA B LDB
                    WORK LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPRFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5130 ':INT32) (N-REF5131 ':INT32)
                              (K-REF5132 ':INT32) (L-REF5133 ':INT32)
                              (LDV-REF5135 ':INT32) (LDT-REF5137 ':INT32)
                              (LDA-REF5139 ':INT32) (LDB-REF5141 ':INT32)
                              (LDWORK-REF5143 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5130 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5131 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5132 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5133 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF5135 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5137 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5139 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5141 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF5143 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF5134 V) (T-REF5136 T)
                                            (A-REF5138 A) (B-REF5140 B)
                                            (WORK-REF5142 WORK))
      (%%CTPRFB SIDE TRANS DIRECT STOREV M-REF5130 N-REF5131 K-REF5132
                L-REF5133 V-REF5134 LDV-REF5135 T-REF5136 LDT-REF5137 A-REF5138
                LDA-REF5139 B-REF5140 LDB-REF5141 WORK-REF5142
                LDWORK-REF5143))))

(CFFI:DEFCFUN ("ctprfs_" %%CTPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPRFS
                   (UPLO TRANS DIAG N NRHS AP B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5147 ':INT32) (NRHS-REF5148 ':INT32)
                              (LDB-REF5151 ':INT32) (LDX-REF5153 ':INT32)
                              (INFO-REF5158 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5147 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5148 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5151 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5153 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5158 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5149 AP) (B-REF5150 B)
                                            (X-REF5152 X) (FERR-REF5154 FERR)
                                            (BERR-REF5155 BERR)
                                            (WORK-REF5156 WORK)
                                            (RWORK-REF5157 RWORK))
      (%%CTPRFS UPLO TRANS DIAG N-REF5147 NRHS-REF5148 AP-REF5149 B-REF5150
                LDB-REF5151 X-REF5152 LDX-REF5153 FERR-REF5154 BERR-REF5155
                WORK-REF5156 RWORK-REF5157 INFO-REF5158))))

(CFFI:DEFCFUN ("ctptri_" %%CTPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPTRI (UPLO DIAG N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5161 ':INT32) (INFO-REF5163 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5161 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5163 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5162 AP))
      (%%CTPTRI UPLO DIAG N-REF5161 AP-REF5162 INFO-REF5163))))

(CFFI:DEFCFUN ("ctptrs_" %%CTPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPTRS (UPLO TRANS DIAG N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5167 ':INT32) (NRHS-REF5168 ':INT32)
                              (LDB-REF5171 ':INT32) (INFO-REF5172 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5167 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5168 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5171 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5172 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5169 AP) (B-REF5170 B))
      (%%CTPTRS UPLO TRANS DIAG N-REF5167 NRHS-REF5168 AP-REF5169 B-REF5170
                LDB-REF5171 INFO-REF5172))))

(CFFI:DEFCFUN ("ctpttf_" %%CTPTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (ARF :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPTTF (TRANSR UPLO N AP ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPTTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ARF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5175 ':INT32) (INFO-REF5178 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5175 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5178 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5176 AP) (ARF-REF5177 ARF))
      (%%CTPTTF TRANSR UPLO N-REF5175 AP-REF5176 ARF-REF5177 INFO-REF5178))))

(CFFI:DEFCFUN ("ctpttr_" %%CTPTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTPTTR (UPLO N AP A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPTTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5180 ':INT32) (LDA-REF5183 ':INT32)
                              (INFO-REF5184 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5180 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5183 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5184 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5181 AP) (A-REF5182 A))
      (%%CTPTTR UPLO N-REF5180 AP-REF5181 A-REF5182 LDA-REF5183 INFO-REF5184))))

(CFFI:DEFCFUN ("ctrcon_" %%CTRCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRCON (NORM UPLO DIAG N A LDA RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5188 ':INT32) (LDA-REF5190 ':INT32)
                              (RCOND-REF5191 ':FLOAT) (INFO-REF5194 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5188 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5190 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5191 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5194 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5189 A) (WORK-REF5192 WORK)
                                            (RWORK-REF5193 RWORK))
      (%%CTRCON NORM UPLO DIAG N-REF5188 A-REF5189 LDA-REF5190 RCOND-REF5191
                WORK-REF5192 RWORK-REF5193 INFO-REF5194))))

(CFFI:DEFCFUN ("ctrevc_" %%CTREVC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTREVC
                   (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTREVC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5198 ':INT32) (LDT-REF5200 ':INT32)
                              (LDVL-REF5202 ':INT32) (LDVR-REF5204 ':INT32)
                              (MM-REF5205 ':INT32) (M-REF5206 ':INT32)
                              (INFO-REF5209 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5198 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5200 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF5202 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF5204 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF5205 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5206 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5209 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF5197 SELECT)
                                            (T-REF5199 T) (VL-REF5201 VL)
                                            (VR-REF5203 VR) (WORK-REF5207 WORK)
                                            (RWORK-REF5208 RWORK))
      (%%CTREVC SIDE HOWMNY SELECT-REF5197 N-REF5198 T-REF5199 LDT-REF5200
                VL-REF5201 LDVL-REF5202 VR-REF5203 LDVR-REF5204 MM-REF5205
                M-REF5206 WORK-REF5207 RWORK-REF5208 INFO-REF5209))))

(CFFI:DEFCFUN ("ctrevc3_" %%CTREVC3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTREVC3
                   (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK LWORK
                    RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTREVC3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5213 ':INT32) (LDT-REF5215 ':INT32)
                              (LDVL-REF5217 ':INT32) (LDVR-REF5219 ':INT32)
                              (MM-REF5220 ':INT32) (M-REF5221 ':INT32)
                              (LWORK-REF5223 ':INT32) (LRWORK-REF5225 ':INT32)
                              (INFO-REF5226 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5213 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5215 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF5217 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF5219 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF5220 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5221 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5223 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF5225 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5226 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF5212 SELECT)
                                            (T-REF5214 T) (VL-REF5216 VL)
                                            (VR-REF5218 VR) (WORK-REF5222 WORK)
                                            (RWORK-REF5224 RWORK))
      (%%CTREVC3 SIDE HOWMNY SELECT-REF5212 N-REF5213 T-REF5214 LDT-REF5215
                 VL-REF5216 LDVL-REF5217 VR-REF5218 LDVR-REF5219 MM-REF5220
                 M-REF5221 WORK-REF5222 LWORK-REF5223 RWORK-REF5224
                 LRWORK-REF5225 INFO-REF5226))))

(CFFI:DEFCFUN ("ctrexc_" %%CTREXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (IFST :POINTER)
  (ILST :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTREXC (COMPQ N T LDT Q LDQ IFST ILST INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTREXC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5228 ':INT32) (LDT-REF5230 ':INT32)
                              (LDQ-REF5232 ':INT32) (IFST-REF5233 ':INT32)
                              (ILST-REF5234 ':INT32) (INFO-REF5235 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5228 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5230 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5232 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF5233 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF5234 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5235 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF5229 T) (Q-REF5231 Q))
      (%%CTREXC COMPQ N-REF5228 T-REF5229 LDT-REF5230 Q-REF5231 LDQ-REF5232
                IFST-REF5233 ILST-REF5234 INFO-REF5235))))

(CFFI:DEFCFUN ("ctrrfs_" %%CTRRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRRFS
                   (UPLO TRANS DIAG N NRHS A LDA B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5239 ':INT32) (NRHS-REF5240 ':INT32)
                              (LDA-REF5242 ':INT32) (LDB-REF5244 ':INT32)
                              (LDX-REF5246 ':INT32) (INFO-REF5251 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5239 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5240 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5242 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5244 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5246 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5251 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5241 A) (B-REF5243 B)
                                            (X-REF5245 X) (FERR-REF5247 FERR)
                                            (BERR-REF5248 BERR)
                                            (WORK-REF5249 WORK)
                                            (RWORK-REF5250 RWORK))
      (%%CTRRFS UPLO TRANS DIAG N-REF5239 NRHS-REF5240 A-REF5241 LDA-REF5242
                B-REF5243 LDB-REF5244 X-REF5245 LDX-REF5246 FERR-REF5247
                BERR-REF5248 WORK-REF5249 RWORK-REF5250 INFO-REF5251))))

(CFFI:DEFCFUN ("ctrsen_" %%CTRSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPQ :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (W :POINTER)
  (M :POINTER)
  (S :POINTER)
  (SEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRSEN
                   (JOB COMPQ SELECT N T LDT Q LDQ W M S SEP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRSEN)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5255 ':INT32) (LDT-REF5257 ':INT32)
                              (LDQ-REF5259 ':INT32) (M-REF5261 ':INT32)
                              (S-REF5262 ':FLOAT) (SEP-REF5263 ':FLOAT)
                              (LWORK-REF5265 ':INT32) (INFO-REF5266 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5255 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5257 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5259 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5261 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF5262 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF5263 :FLOAT) SEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5265 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5266 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF5254 SELECT)
                                            (T-REF5256 T) (Q-REF5258 Q)
                                            (W-REF5260 W) (WORK-REF5264 WORK))
      (%%CTRSEN JOB COMPQ SELECT-REF5254 N-REF5255 T-REF5256 LDT-REF5257
                Q-REF5258 LDQ-REF5259 W-REF5260 M-REF5261 S-REF5262 SEP-REF5263
                WORK-REF5264 LWORK-REF5265 INFO-REF5266))))

(CFFI:DEFCFUN ("ctrsna_" %%CTRSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (S :POINTER)
  (SEP :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRSNA
                   (JOB HOWMNY SELECT N T LDT VL LDVL VR LDVR S SEP MM M WORK
                    LDWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRSNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5270 ':INT32) (LDT-REF5272 ':INT32)
                              (LDVL-REF5274 ':INT32) (LDVR-REF5276 ':INT32)
                              (MM-REF5279 ':INT32) (M-REF5280 ':INT32)
                              (LDWORK-REF5282 ':INT32) (INFO-REF5284 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5270 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5272 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF5274 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF5276 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF5279 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5280 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF5282 :INT32) LDWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5284 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF5269 SELECT)
                                            (T-REF5271 T) (VL-REF5273 VL)
                                            (VR-REF5275 VR) (S-REF5277 S)
                                            (SEP-REF5278 SEP)
                                            (WORK-REF5281 WORK)
                                            (RWORK-REF5283 RWORK))
      (%%CTRSNA JOB HOWMNY SELECT-REF5269 N-REF5270 T-REF5271 LDT-REF5272
                VL-REF5273 LDVL-REF5274 VR-REF5275 LDVR-REF5276 S-REF5277
                SEP-REF5278 MM-REF5279 M-REF5280 WORK-REF5281 LDWORK-REF5282
                RWORK-REF5283 INFO-REF5284))))

(CFFI:DEFCFUN ("ctrsyl_" %%CTRSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANA :STRING)
  (TRANB :STRING)
  (ISGN :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (SCALE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRSYL (TRANA TRANB ISGN M N A LDA B LDB C LDC SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRSYL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF5287 ':INT32) (M-REF5288 ':INT32)
                              (N-REF5289 ':INT32) (LDA-REF5291 ':INT32)
                              (LDB-REF5293 ':INT32) (LDC-REF5295 ':INT32)
                              (SCALE-REF5296 ':FLOAT) (INFO-REF5297 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF5287 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5288 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5289 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5291 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5293 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5295 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF5296 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5297 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5290 A) (B-REF5292 B)
                                            (C-REF5294 C))
      (%%CTRSYL TRANA TRANB ISGN-REF5287 M-REF5288 N-REF5289 A-REF5290
                LDA-REF5291 B-REF5292 LDB-REF5293 C-REF5294 LDC-REF5295
                SCALE-REF5296 INFO-REF5297))))

(CFFI:DEFCFUN ("ctrti2_" %%CTRTI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRTI2 (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRTI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5300 ':INT32) (LDA-REF5302 ':INT32)
                              (INFO-REF5303 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5300 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5302 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5303 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5301 A))
      (%%CTRTI2 UPLO DIAG N-REF5300 A-REF5301 LDA-REF5302 INFO-REF5303))))

(CFFI:DEFCFUN ("ctrtri_" %%CTRTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRTRI (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5306 ':INT32) (LDA-REF5308 ':INT32)
                              (INFO-REF5309 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5306 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5308 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5309 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5307 A))
      (%%CTRTRI UPLO DIAG N-REF5306 A-REF5307 LDA-REF5308 INFO-REF5309))))

(CFFI:DEFCFUN ("ctrtrs_" %%CTRTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRTRS (UPLO TRANS DIAG N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5313 ':INT32) (NRHS-REF5314 ':INT32)
                              (LDA-REF5316 ':INT32) (LDB-REF5318 ':INT32)
                              (INFO-REF5319 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5313 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5314 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5316 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5318 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5319 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5315 A) (B-REF5317 B))
      (%%CTRTRS UPLO TRANS DIAG N-REF5313 NRHS-REF5314 A-REF5315 LDA-REF5316
                B-REF5317 LDB-REF5318 INFO-REF5319))))

(CFFI:DEFCFUN ("ctrttf_" %%CTRTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ARF :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRTTF (TRANSR UPLO N A LDA ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRTTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        ARF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5322 ':INT32) (LDA-REF5324 ':INT32)
                              (INFO-REF5326 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5322 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5324 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5326 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5323 A) (ARF-REF5325 ARF))
      (%%CTRTTF TRANSR UPLO N-REF5322 A-REF5323 LDA-REF5324 ARF-REF5325
                INFO-REF5326))))

(CFFI:DEFCFUN ("ctrttp_" %%CTRTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTRTTP (UPLO N A LDA AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRTTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5328 ':INT32) (LDA-REF5330 ':INT32)
                              (INFO-REF5332 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5328 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5330 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5332 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5329 A) (AP-REF5331 AP))
      (%%CTRTTP UPLO N-REF5328 A-REF5329 LDA-REF5330 AP-REF5331 INFO-REF5332))))

(CFFI:DEFCFUN ("ctzrzf_" %%CTZRZF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CTZRZF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTZRZF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5333 ':INT32) (N-REF5334 ':INT32)
                              (LDA-REF5336 ':INT32) (LWORK-REF5339 ':INT32)
                              (INFO-REF5340 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5333 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5334 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5336 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5339 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5340 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5335 A) (TAU-REF5337 TAU)
                                            (WORK-REF5338 WORK))
      (%%CTZRZF M-REF5333 N-REF5334 A-REF5335 LDA-REF5336 TAU-REF5337
                WORK-REF5338 LWORK-REF5339 INFO-REF5340))))

(CFFI:DEFCFUN ("cunbdb_" %%CUNBDB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (SIGNS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X12 :POINTER)
  (LDX12 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (X22 :POINTER)
  (LDX22 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (TAUQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNBDB
                   (TRANS SIGNS M P Q X11 LDX11 X12 LDX12 X21 LDX21 X22 LDX22
                    THETA PHI TAUP1 TAUP2 TAUQ1 TAUQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X12)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5343 ':INT32) (P-REF5344 ':INT32)
                              (Q-REF5345 ':INT32) (LDX11-REF5347 ':INT32)
                              (LDX12-REF5349 ':INT32) (LDX21-REF5351 ':INT32)
                              (LDX22-REF5353 ':INT32) (LWORK-REF5361 ':INT32)
                              (INFO-REF5362 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5343 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5344 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5345 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5347 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF5349 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5351 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF5353 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5361 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5362 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5346 X11) (X12-REF5348 X12)
                                            (X21-REF5350 X21) (X22-REF5352 X22)
                                            (THETA-REF5354 THETA)
                                            (PHI-REF5355 PHI)
                                            (TAUP1-REF5356 TAUP1)
                                            (TAUP2-REF5357 TAUP2)
                                            (TAUQ1-REF5358 TAUQ1)
                                            (TAUQ2-REF5359 TAUQ2)
                                            (WORK-REF5360 WORK))
      (%%CUNBDB TRANS SIGNS M-REF5343 P-REF5344 Q-REF5345 X11-REF5346
                LDX11-REF5347 X12-REF5348 LDX12-REF5349 X21-REF5350
                LDX21-REF5351 X22-REF5352 LDX22-REF5353 THETA-REF5354
                PHI-REF5355 TAUP1-REF5356 TAUP2-REF5357 TAUQ1-REF5358
                TAUQ2-REF5359 WORK-REF5360 LWORK-REF5361 INFO-REF5362))))

(CFFI:DEFCFUN ("cunbdb1_" %%CUNBDB1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNBDB1
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5363 ':INT32) (P-REF5364 ':INT32)
                              (Q-REF5365 ':INT32) (LDX11-REF5367 ':INT32)
                              (LDX21-REF5369 ':INT32) (LWORK-REF5376 ':INT32)
                              (INFO-REF5377 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5363 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5364 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5365 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5367 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5369 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5376 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5377 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5366 X11) (X21-REF5368 X21)
                                            (THETA-REF5370 THETA)
                                            (PHI-REF5371 PHI)
                                            (TAUP1-REF5372 TAUP1)
                                            (TAUP2-REF5373 TAUP2)
                                            (TAUQ1-REF5374 TAUQ1)
                                            (WORK-REF5375 WORK))
      (%%CUNBDB1 M-REF5363 P-REF5364 Q-REF5365 X11-REF5366 LDX11-REF5367
                 X21-REF5368 LDX21-REF5369 THETA-REF5370 PHI-REF5371
                 TAUP1-REF5372 TAUP2-REF5373 TAUQ1-REF5374 WORK-REF5375
                 LWORK-REF5376 INFO-REF5377))))

(CFFI:DEFCFUN ("cunbdb2_" %%CUNBDB2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNBDB2
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5378 ':INT32) (P-REF5379 ':INT32)
                              (Q-REF5380 ':INT32) (LDX11-REF5382 ':INT32)
                              (LDX21-REF5384 ':INT32) (LWORK-REF5391 ':INT32)
                              (INFO-REF5392 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5378 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5379 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5380 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5382 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5384 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5391 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5392 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5381 X11) (X21-REF5383 X21)
                                            (THETA-REF5385 THETA)
                                            (PHI-REF5386 PHI)
                                            (TAUP1-REF5387 TAUP1)
                                            (TAUP2-REF5388 TAUP2)
                                            (TAUQ1-REF5389 TAUQ1)
                                            (WORK-REF5390 WORK))
      (%%CUNBDB2 M-REF5378 P-REF5379 Q-REF5380 X11-REF5381 LDX11-REF5382
                 X21-REF5383 LDX21-REF5384 THETA-REF5385 PHI-REF5386
                 TAUP1-REF5387 TAUP2-REF5388 TAUQ1-REF5389 WORK-REF5390
                 LWORK-REF5391 INFO-REF5392))))

(CFFI:DEFCFUN ("cunbdb3_" %%CUNBDB3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNBDB3
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5393 ':INT32) (P-REF5394 ':INT32)
                              (Q-REF5395 ':INT32) (LDX11-REF5397 ':INT32)
                              (LDX21-REF5399 ':INT32) (LWORK-REF5406 ':INT32)
                              (INFO-REF5407 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5393 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5394 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5395 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5397 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5399 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5406 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5407 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5396 X11) (X21-REF5398 X21)
                                            (THETA-REF5400 THETA)
                                            (PHI-REF5401 PHI)
                                            (TAUP1-REF5402 TAUP1)
                                            (TAUP2-REF5403 TAUP2)
                                            (TAUQ1-REF5404 TAUQ1)
                                            (WORK-REF5405 WORK))
      (%%CUNBDB3 M-REF5393 P-REF5394 Q-REF5395 X11-REF5396 LDX11-REF5397
                 X21-REF5398 LDX21-REF5399 THETA-REF5400 PHI-REF5401
                 TAUP1-REF5402 TAUP2-REF5403 TAUQ1-REF5404 WORK-REF5405
                 LWORK-REF5406 INFO-REF5407))))

(CFFI:DEFCFUN ("cunbdb4_" %%CUNBDB4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (PHANTOM :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNBDB4
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1
                    PHANTOM WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        PHANTOM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5408 ':INT32) (P-REF5409 ':INT32)
                              (Q-REF5410 ':INT32) (LDX11-REF5412 ':INT32)
                              (LDX21-REF5414 ':INT32) (LWORK-REF5422 ':INT32)
                              (INFO-REF5423 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5408 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5409 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5410 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5412 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5414 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5422 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5423 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5411 X11) (X21-REF5413 X21)
                                            (THETA-REF5415 THETA)
                                            (PHI-REF5416 PHI)
                                            (TAUP1-REF5417 TAUP1)
                                            (TAUP2-REF5418 TAUP2)
                                            (TAUQ1-REF5419 TAUQ1)
                                            (PHANTOM-REF5420 PHANTOM)
                                            (WORK-REF5421 WORK))
      (%%CUNBDB4 M-REF5408 P-REF5409 Q-REF5410 X11-REF5411 LDX11-REF5412
                 X21-REF5413 LDX21-REF5414 THETA-REF5415 PHI-REF5416
                 TAUP1-REF5417 TAUP2-REF5418 TAUQ1-REF5419 PHANTOM-REF5420
                 WORK-REF5421 LWORK-REF5422 INFO-REF5423))))

(CFFI:DEFCFUN ("cunbdb5_" %%CUNBDB5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M1 :POINTER)
  (M2 :POINTER)
  (N :POINTER)
  (X1 :POINTER)
  (INCX1 :POINTER)
  (X2 :POINTER)
  (INCX2 :POINTER)
  (Q1 :POINTER)
  (LDQ1 :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNBDB5
                   (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF5424 ':INT32) (M2-REF5425 ':INT32)
                              (N-REF5426 ':INT32) (INCX1-REF5428 ':INT32)
                              (INCX2-REF5430 ':INT32) (LDQ1-REF5432 ':INT32)
                              (LDQ2-REF5434 ':INT32) (LWORK-REF5436 ':INT32)
                              (INFO-REF5437 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF5424 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF5425 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5426 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF5428 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF5430 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF5432 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF5434 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5436 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5437 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF5427 X1) (X2-REF5429 X2)
                                            (Q1-REF5431 Q1) (Q2-REF5433 Q2)
                                            (WORK-REF5435 WORK))
      (%%CUNBDB5 M1-REF5424 M2-REF5425 N-REF5426 X1-REF5427 INCX1-REF5428
                 X2-REF5429 INCX2-REF5430 Q1-REF5431 LDQ1-REF5432 Q2-REF5433
                 LDQ2-REF5434 WORK-REF5435 LWORK-REF5436 INFO-REF5437))))

(CFFI:DEFCFUN ("cunbdb6_" %%CUNBDB6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M1 :POINTER)
  (M2 :POINTER)
  (N :POINTER)
  (X1 :POINTER)
  (INCX1 :POINTER)
  (X2 :POINTER)
  (INCX2 :POINTER)
  (Q1 :POINTER)
  (LDQ1 :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNBDB6
                   (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF5438 ':INT32) (M2-REF5439 ':INT32)
                              (N-REF5440 ':INT32) (INCX1-REF5442 ':INT32)
                              (INCX2-REF5444 ':INT32) (LDQ1-REF5446 ':INT32)
                              (LDQ2-REF5448 ':INT32) (LWORK-REF5450 ':INT32)
                              (INFO-REF5451 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF5438 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF5439 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5440 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF5442 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF5444 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF5446 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF5448 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5450 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5451 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF5441 X1) (X2-REF5443 X2)
                                            (Q1-REF5445 Q1) (Q2-REF5447 Q2)
                                            (WORK-REF5449 WORK))
      (%%CUNBDB6 M1-REF5438 M2-REF5439 N-REF5440 X1-REF5441 INCX1-REF5442
                 X2-REF5443 INCX2-REF5444 Q1-REF5445 LDQ1-REF5446 Q2-REF5447
                 LDQ2-REF5448 WORK-REF5449 LWORK-REF5450 INFO-REF5451))))

(CFFI:DEFCFUN ("cuncsd_" %%CUNCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (JOBV2T :STRING)
  (TRANS :STRING)
  (SIGNS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X12 :POINTER)
  (LDX12 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (X22 :POINTER)
  (LDX22 :POINTER)
  (THETA :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (V2T :POINTER)
  (LDV2T :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNCSD
                   (JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M P Q X11 LDX11 X12
                    LDX12 X21 LDX21 X22 LDX22 THETA U1 LDU1 U2 LDU2 V1T LDV1T
                    V2T LDV2T WORK LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNCSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X12)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V2T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5458 ':INT32) (P-REF5459 ':INT32)
                              (Q-REF5460 ':INT32) (LDX11-REF5462 ':INT32)
                              (LDX12-REF5464 ':INT32) (LDX21-REF5466 ':INT32)
                              (LDX22-REF5468 ':INT32) (LDU1-REF5471 ':INT32)
                              (LDU2-REF5473 ':INT32) (LDV1T-REF5475 ':INT32)
                              (LDV2T-REF5477 ':INT32) (LWORK-REF5479 ':INT32)
                              (LRWORK-REF5481 ':INT32) (INFO-REF5483 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5458 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5459 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5460 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5462 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF5464 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5466 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF5468 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF5471 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF5473 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF5475 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF5477 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5479 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF5481 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5483 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5461 X11) (X12-REF5463 X12)
                                            (X21-REF5465 X21) (X22-REF5467 X22)
                                            (THETA-REF5469 THETA)
                                            (U1-REF5470 U1) (U2-REF5472 U2)
                                            (V1T-REF5474 V1T) (V2T-REF5476 V2T)
                                            (WORK-REF5478 WORK)
                                            (RWORK-REF5480 RWORK)
                                            (IWORK-REF5482 IWORK))
      (%%CUNCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF5458 P-REF5459
                Q-REF5460 X11-REF5461 LDX11-REF5462 X12-REF5463 LDX12-REF5464
                X21-REF5465 LDX21-REF5466 X22-REF5467 LDX22-REF5468
                THETA-REF5469 U1-REF5470 LDU1-REF5471 U2-REF5472 LDU2-REF5473
                V1T-REF5474 LDV1T-REF5475 V2T-REF5476 LDV2T-REF5477
                WORK-REF5478 LWORK-REF5479 RWORK-REF5480 LRWORK-REF5481
                IWORK-REF5482 INFO-REF5483))))

(CFFI:DEFCFUN ("cuncsd2by1_" %%CUNCSD2BY1 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNCSD2BY1
                   (JOBU1 JOBU2 JOBV1T M P Q X11 LDX11 X21 LDX21 THETA U1 LDU1
                    U2 LDU2 V1T LDV1T WORK LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNCSD2BY1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5487 ':INT32) (P-REF5488 ':INT32)
                              (Q-REF5489 ':INT32) (LDX11-REF5491 ':INT32)
                              (LDX21-REF5493 ':INT32) (LDU1-REF5496 ':INT32)
                              (LDU2-REF5498 ':INT32) (LDV1T-REF5500 ':INT32)
                              (LWORK-REF5502 ':INT32) (LRWORK-REF5504 ':INT32)
                              (INFO-REF5506 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5487 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5488 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5489 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5491 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5493 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF5496 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF5498 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF5500 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5502 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF5504 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5506 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5490 X11) (X21-REF5492 X21)
                                            (THETA-REF5494 THETA)
                                            (U1-REF5495 U1) (U2-REF5497 U2)
                                            (V1T-REF5499 V1T)
                                            (WORK-REF5501 WORK)
                                            (RWORK-REF5503 RWORK)
                                            (IWORK-REF5505 IWORK))
      (%%CUNCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF5487 P-REF5488 Q-REF5489
                    X11-REF5490 LDX11-REF5491 X21-REF5492 LDX21-REF5493
                    THETA-REF5494 U1-REF5495 LDU1-REF5496 U2-REF5497
                    LDU2-REF5498 V1T-REF5499 LDV1T-REF5500 WORK-REF5501
                    LWORK-REF5502 RWORK-REF5503 LRWORK-REF5504 IWORK-REF5505
                    INFO-REF5506))))

(CFFI:DEFCFUN ("cung2l_" %%CUNG2L :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNG2L (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNG2L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5507 ':INT32) (N-REF5508 ':INT32)
                              (K-REF5509 ':INT32) (LDA-REF5511 ':INT32)
                              (INFO-REF5514 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5507 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5508 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5509 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5511 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5514 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5510 A) (TAU-REF5512 TAU)
                                            (WORK-REF5513 WORK))
      (%%CUNG2L M-REF5507 N-REF5508 K-REF5509 A-REF5510 LDA-REF5511 TAU-REF5512
                WORK-REF5513 INFO-REF5514))))

(CFFI:DEFCFUN ("cung2r_" %%CUNG2R :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNG2R (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNG2R)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5515 ':INT32) (N-REF5516 ':INT32)
                              (K-REF5517 ':INT32) (LDA-REF5519 ':INT32)
                              (INFO-REF5522 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5515 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5516 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5517 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5519 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5522 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5518 A) (TAU-REF5520 TAU)
                                            (WORK-REF5521 WORK))
      (%%CUNG2R M-REF5515 N-REF5516 K-REF5517 A-REF5518 LDA-REF5519 TAU-REF5520
                WORK-REF5521 INFO-REF5522))))

(CFFI:DEFCFUN ("cungbr_" %%CUNGBR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGBR (VECT M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5524 ':INT32) (N-REF5525 ':INT32)
                              (K-REF5526 ':INT32) (LDA-REF5528 ':INT32)
                              (LWORK-REF5531 ':INT32) (INFO-REF5532 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5524 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5525 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5526 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5528 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5531 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5532 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5527 A) (TAU-REF5529 TAU)
                                            (WORK-REF5530 WORK))
      (%%CUNGBR VECT M-REF5524 N-REF5525 K-REF5526 A-REF5527 LDA-REF5528
                TAU-REF5529 WORK-REF5530 LWORK-REF5531 INFO-REF5532))))

(CFFI:DEFCFUN ("cunghr_" %%CUNGHR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGHR (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGHR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5533 ':INT32) (ILO-REF5534 ':INT32)
                              (IHI-REF5535 ':INT32) (LDA-REF5537 ':INT32)
                              (LWORK-REF5540 ':INT32) (INFO-REF5541 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5533 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF5534 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF5535 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5537 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5540 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5541 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5536 A) (TAU-REF5538 TAU)
                                            (WORK-REF5539 WORK))
      (%%CUNGHR N-REF5533 ILO-REF5534 IHI-REF5535 A-REF5536 LDA-REF5537
                TAU-REF5538 WORK-REF5539 LWORK-REF5540 INFO-REF5541))))

(CFFI:DEFCFUN ("cungl2_" %%CUNGL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGL2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5542 ':INT32) (N-REF5543 ':INT32)
                              (K-REF5544 ':INT32) (LDA-REF5546 ':INT32)
                              (INFO-REF5549 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5542 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5543 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5544 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5546 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5549 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5545 A) (TAU-REF5547 TAU)
                                            (WORK-REF5548 WORK))
      (%%CUNGL2 M-REF5542 N-REF5543 K-REF5544 A-REF5545 LDA-REF5546 TAU-REF5547
                WORK-REF5548 INFO-REF5549))))

(CFFI:DEFCFUN ("cunglq_" %%CUNGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGLQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGLQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5550 ':INT32) (N-REF5551 ':INT32)
                              (K-REF5552 ':INT32) (LDA-REF5554 ':INT32)
                              (LWORK-REF5557 ':INT32) (INFO-REF5558 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5550 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5551 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5552 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5554 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5557 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5558 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5553 A) (TAU-REF5555 TAU)
                                            (WORK-REF5556 WORK))
      (%%CUNGLQ M-REF5550 N-REF5551 K-REF5552 A-REF5553 LDA-REF5554 TAU-REF5555
                WORK-REF5556 LWORK-REF5557 INFO-REF5558))))

(CFFI:DEFCFUN ("cungql_" %%CUNGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGQL (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGQL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5559 ':INT32) (N-REF5560 ':INT32)
                              (K-REF5561 ':INT32) (LDA-REF5563 ':INT32)
                              (LWORK-REF5566 ':INT32) (INFO-REF5567 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5559 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5560 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5561 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5563 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5566 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5567 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5562 A) (TAU-REF5564 TAU)
                                            (WORK-REF5565 WORK))
      (%%CUNGQL M-REF5559 N-REF5560 K-REF5561 A-REF5562 LDA-REF5563 TAU-REF5564
                WORK-REF5565 LWORK-REF5566 INFO-REF5567))))

(CFFI:DEFCFUN ("cungqr_" %%CUNGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGQR (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5568 ':INT32) (N-REF5569 ':INT32)
                              (K-REF5570 ':INT32) (LDA-REF5572 ':INT32)
                              (LWORK-REF5575 ':INT32) (INFO-REF5576 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5568 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5569 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5570 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5572 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5575 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5576 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5571 A) (TAU-REF5573 TAU)
                                            (WORK-REF5574 WORK))
      (%%CUNGQR M-REF5568 N-REF5569 K-REF5570 A-REF5571 LDA-REF5572 TAU-REF5573
                WORK-REF5574 LWORK-REF5575 INFO-REF5576))))

(CFFI:DEFCFUN ("cungr2_" %%CUNGR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGR2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5577 ':INT32) (N-REF5578 ':INT32)
                              (K-REF5579 ':INT32) (LDA-REF5581 ':INT32)
                              (INFO-REF5584 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5577 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5578 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5579 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5581 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5584 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5580 A) (TAU-REF5582 TAU)
                                            (WORK-REF5583 WORK))
      (%%CUNGR2 M-REF5577 N-REF5578 K-REF5579 A-REF5580 LDA-REF5581 TAU-REF5582
                WORK-REF5583 INFO-REF5584))))

(CFFI:DEFCFUN ("cungrq_" %%CUNGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGRQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGRQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5585 ':INT32) (N-REF5586 ':INT32)
                              (K-REF5587 ':INT32) (LDA-REF5589 ':INT32)
                              (LWORK-REF5592 ':INT32) (INFO-REF5593 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5585 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5586 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5587 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5589 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5592 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5593 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5588 A) (TAU-REF5590 TAU)
                                            (WORK-REF5591 WORK))
      (%%CUNGRQ M-REF5585 N-REF5586 K-REF5587 A-REF5588 LDA-REF5589 TAU-REF5590
                WORK-REF5591 LWORK-REF5592 INFO-REF5593))))

(CFFI:DEFCFUN ("cungtr_" %%CUNGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNGTR (UPLO N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5595 ':INT32) (LDA-REF5597 ':INT32)
                              (LWORK-REF5600 ':INT32) (INFO-REF5601 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5595 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5597 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5600 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5601 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5596 A) (TAU-REF5598 TAU)
                                            (WORK-REF5599 WORK))
      (%%CUNGTR UPLO N-REF5595 A-REF5596 LDA-REF5597 TAU-REF5598 WORK-REF5599
                LWORK-REF5600 INFO-REF5601))))

(CFFI:DEFCFUN ("cunm22_" %%CUNM22 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNM22 (SIDE TRANS M N N1 N2 Q LDQ C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNM22)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5604 ':INT32) (N-REF5605 ':INT32)
                              (N1-REF5606 ':INT32) (N2-REF5607 ':INT32)
                              (LDQ-REF5609 ':INT32) (LDC-REF5611 ':INT32)
                              (LWORK-REF5613 ':INT32) (INFO-REF5614 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5604 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5605 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF5606 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF5607 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5609 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5611 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5613 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5614 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF5608 Q) (C-REF5610 C)
                                            (WORK-REF5612 WORK))
      (%%CUNM22 SIDE TRANS M-REF5604 N-REF5605 N1-REF5606 N2-REF5607 Q-REF5608
                LDQ-REF5609 C-REF5610 LDC-REF5611 WORK-REF5612 LWORK-REF5613
                INFO-REF5614))))

(CFFI:DEFCFUN ("cunm2l_" %%CUNM2L :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNM2L (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNM2L)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5617 ':INT32) (N-REF5618 ':INT32)
                              (K-REF5619 ':INT32) (LDA-REF5621 ':INT32)
                              (LDC-REF5624 ':INT32) (INFO-REF5626 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5617 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5618 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5619 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5621 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5624 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5626 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5620 A) (TAU-REF5622 TAU)
                                            (C-REF5623 C) (WORK-REF5625 WORK))
      (%%CUNM2L SIDE TRANS M-REF5617 N-REF5618 K-REF5619 A-REF5620 LDA-REF5621
                TAU-REF5622 C-REF5623 LDC-REF5624 WORK-REF5625 INFO-REF5626))))

(CFFI:DEFCFUN ("cunm2r_" %%CUNM2R :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNM2R (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNM2R)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5629 ':INT32) (N-REF5630 ':INT32)
                              (K-REF5631 ':INT32) (LDA-REF5633 ':INT32)
                              (LDC-REF5636 ':INT32) (INFO-REF5638 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5629 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5630 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5631 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5633 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5636 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5638 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5632 A) (TAU-REF5634 TAU)
                                            (C-REF5635 C) (WORK-REF5637 WORK))
      (%%CUNM2R SIDE TRANS M-REF5629 N-REF5630 K-REF5631 A-REF5632 LDA-REF5633
                TAU-REF5634 C-REF5635 LDC-REF5636 WORK-REF5637 INFO-REF5638))))

(CFFI:DEFCFUN ("cunmbr_" %%CUNMBR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMBR
                   (VECT SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5642 ':INT32) (N-REF5643 ':INT32)
                              (K-REF5644 ':INT32) (LDA-REF5646 ':INT32)
                              (LDC-REF5649 ':INT32) (LWORK-REF5651 ':INT32)
                              (INFO-REF5652 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5642 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5643 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5644 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5646 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5649 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5651 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5652 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5645 A) (TAU-REF5647 TAU)
                                            (C-REF5648 C) (WORK-REF5650 WORK))
      (%%CUNMBR VECT SIDE TRANS M-REF5642 N-REF5643 K-REF5644 A-REF5645
                LDA-REF5646 TAU-REF5647 C-REF5648 LDC-REF5649 WORK-REF5650
                LWORK-REF5651 INFO-REF5652))))

(CFFI:DEFCFUN ("cunmhr_" %%CUNMHR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMHR
                   (SIDE TRANS M N ILO IHI A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMHR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5655 ':INT32) (N-REF5656 ':INT32)
                              (ILO-REF5657 ':INT32) (IHI-REF5658 ':INT32)
                              (LDA-REF5660 ':INT32) (LDC-REF5663 ':INT32)
                              (LWORK-REF5665 ':INT32) (INFO-REF5666 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5655 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5656 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF5657 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF5658 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5660 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5663 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5665 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5666 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5659 A) (TAU-REF5661 TAU)
                                            (C-REF5662 C) (WORK-REF5664 WORK))
      (%%CUNMHR SIDE TRANS M-REF5655 N-REF5656 ILO-REF5657 IHI-REF5658
                A-REF5659 LDA-REF5660 TAU-REF5661 C-REF5662 LDC-REF5663
                WORK-REF5664 LWORK-REF5665 INFO-REF5666))))

(CFFI:DEFCFUN ("cunml2_" %%CUNML2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNML2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNML2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5669 ':INT32) (N-REF5670 ':INT32)
                              (K-REF5671 ':INT32) (LDA-REF5673 ':INT32)
                              (LDC-REF5676 ':INT32) (INFO-REF5678 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5669 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5670 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5671 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5673 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5676 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5678 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5672 A) (TAU-REF5674 TAU)
                                            (C-REF5675 C) (WORK-REF5677 WORK))
      (%%CUNML2 SIDE TRANS M-REF5669 N-REF5670 K-REF5671 A-REF5672 LDA-REF5673
                TAU-REF5674 C-REF5675 LDC-REF5676 WORK-REF5677 INFO-REF5678))))

(CFFI:DEFCFUN ("cunmlq_" %%CUNMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMLQ (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5681 ':INT32) (N-REF5682 ':INT32)
                              (K-REF5683 ':INT32) (LDA-REF5685 ':INT32)
                              (LDC-REF5688 ':INT32) (LWORK-REF5690 ':INT32)
                              (INFO-REF5691 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5681 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5682 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5683 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5685 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5688 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5690 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5691 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5684 A) (TAU-REF5686 TAU)
                                            (C-REF5687 C) (WORK-REF5689 WORK))
      (%%CUNMLQ SIDE TRANS M-REF5681 N-REF5682 K-REF5683 A-REF5684 LDA-REF5685
                TAU-REF5686 C-REF5687 LDC-REF5688 WORK-REF5689 LWORK-REF5690
                INFO-REF5691))))

(CFFI:DEFCFUN ("cunmql_" %%CUNMQL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMQL (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMQL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5694 ':INT32) (N-REF5695 ':INT32)
                              (K-REF5696 ':INT32) (LDA-REF5698 ':INT32)
                              (LDC-REF5701 ':INT32) (LWORK-REF5703 ':INT32)
                              (INFO-REF5704 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5694 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5695 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5696 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5698 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5701 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5703 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5704 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5697 A) (TAU-REF5699 TAU)
                                            (C-REF5700 C) (WORK-REF5702 WORK))
      (%%CUNMQL SIDE TRANS M-REF5694 N-REF5695 K-REF5696 A-REF5697 LDA-REF5698
                TAU-REF5699 C-REF5700 LDC-REF5701 WORK-REF5702 LWORK-REF5703
                INFO-REF5704))))

(CFFI:DEFCFUN ("cunmqr_" %%CUNMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMQR (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5707 ':INT32) (N-REF5708 ':INT32)
                              (K-REF5709 ':INT32) (LDA-REF5711 ':INT32)
                              (LDC-REF5714 ':INT32) (LWORK-REF5716 ':INT32)
                              (INFO-REF5717 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5707 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5708 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5709 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5711 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5714 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5716 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5717 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5710 A) (TAU-REF5712 TAU)
                                            (C-REF5713 C) (WORK-REF5715 WORK))
      (%%CUNMQR SIDE TRANS M-REF5707 N-REF5708 K-REF5709 A-REF5710 LDA-REF5711
                TAU-REF5712 C-REF5713 LDC-REF5714 WORK-REF5715 LWORK-REF5716
                INFO-REF5717))))

(CFFI:DEFCFUN ("cunmr2_" %%CUNMR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMR2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5720 ':INT32) (N-REF5721 ':INT32)
                              (K-REF5722 ':INT32) (LDA-REF5724 ':INT32)
                              (LDC-REF5727 ':INT32) (INFO-REF5729 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5720 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5721 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5722 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5724 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5727 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5729 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5723 A) (TAU-REF5725 TAU)
                                            (C-REF5726 C) (WORK-REF5728 WORK))
      (%%CUNMR2 SIDE TRANS M-REF5720 N-REF5721 K-REF5722 A-REF5723 LDA-REF5724
                TAU-REF5725 C-REF5726 LDC-REF5727 WORK-REF5728 INFO-REF5729))))

(CFFI:DEFCFUN ("cunmr3_" %%CUNMR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMR3 (SIDE TRANS M N K L A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMR3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5732 ':INT32) (N-REF5733 ':INT32)
                              (K-REF5734 ':INT32) (L-REF5735 ':INT32)
                              (LDA-REF5737 ':INT32) (LDC-REF5740 ':INT32)
                              (INFO-REF5742 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5732 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5733 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5734 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5735 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5737 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5740 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5742 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5736 A) (TAU-REF5738 TAU)
                                            (C-REF5739 C) (WORK-REF5741 WORK))
      (%%CUNMR3 SIDE TRANS M-REF5732 N-REF5733 K-REF5734 L-REF5735 A-REF5736
                LDA-REF5737 TAU-REF5738 C-REF5739 LDC-REF5740 WORK-REF5741
                INFO-REF5742))))

(CFFI:DEFCFUN ("cunmrq_" %%CUNMRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMRQ (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMRQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5745 ':INT32) (N-REF5746 ':INT32)
                              (K-REF5747 ':INT32) (LDA-REF5749 ':INT32)
                              (LDC-REF5752 ':INT32) (LWORK-REF5754 ':INT32)
                              (INFO-REF5755 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5745 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5746 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5747 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5749 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5752 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5754 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5755 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5748 A) (TAU-REF5750 TAU)
                                            (C-REF5751 C) (WORK-REF5753 WORK))
      (%%CUNMRQ SIDE TRANS M-REF5745 N-REF5746 K-REF5747 A-REF5748 LDA-REF5749
                TAU-REF5750 C-REF5751 LDC-REF5752 WORK-REF5753 LWORK-REF5754
                INFO-REF5755))))

(CFFI:DEFCFUN ("cunmrz_" %%CUNMRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMRZ (SIDE TRANS M N K L A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMRZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5758 ':INT32) (N-REF5759 ':INT32)
                              (K-REF5760 ':INT32) (L-REF5761 ':INT32)
                              (LDA-REF5763 ':INT32) (LDC-REF5766 ':INT32)
                              (LWORK-REF5768 ':INT32) (INFO-REF5769 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5758 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5759 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5760 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5761 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5763 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5766 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5768 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5769 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5762 A) (TAU-REF5764 TAU)
                                            (C-REF5765 C) (WORK-REF5767 WORK))
      (%%CUNMRZ SIDE TRANS M-REF5758 N-REF5759 K-REF5760 L-REF5761 A-REF5762
                LDA-REF5763 TAU-REF5764 C-REF5765 LDC-REF5766 WORK-REF5767
                LWORK-REF5768 INFO-REF5769))))

(CFFI:DEFCFUN ("cunmtr_" %%CUNMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUNMTR
                   (SIDE UPLO TRANS M N A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5773 ':INT32) (N-REF5774 ':INT32)
                              (LDA-REF5776 ':INT32) (LDC-REF5779 ':INT32)
                              (LWORK-REF5781 ':INT32) (INFO-REF5782 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5773 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5774 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5776 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5779 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5781 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5782 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5775 A) (TAU-REF5777 TAU)
                                            (C-REF5778 C) (WORK-REF5780 WORK))
      (%%CUNMTR SIDE UPLO TRANS M-REF5773 N-REF5774 A-REF5775 LDA-REF5776
                TAU-REF5777 C-REF5778 LDC-REF5779 WORK-REF5780 LWORK-REF5781
                INFO-REF5782))))

(CFFI:DEFCFUN ("cupgtr_" %%CUPGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (TAU :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUPGTR (UPLO N AP TAU Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUPGTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5784 ':INT32) (LDQ-REF5788 ':INT32)
                              (INFO-REF5790 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5784 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5788 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5790 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5785 AP) (TAU-REF5786 TAU)
                                            (Q-REF5787 Q) (WORK-REF5789 WORK))
      (%%CUPGTR UPLO N-REF5784 AP-REF5785 TAU-REF5786 Q-REF5787 LDQ-REF5788
                WORK-REF5789 INFO-REF5790))))

(CFFI:DEFCFUN ("cupmtr_" %%CUPMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (AP :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %CUPMTR (SIDE UPLO TRANS M N AP TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUPMTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5794 ':INT32) (N-REF5795 ':INT32)
                              (LDC-REF5799 ':INT32) (INFO-REF5801 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5794 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5795 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5799 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5801 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5796 AP) (TAU-REF5797 TAU)
                                            (C-REF5798 C) (WORK-REF5800 WORK))
      (%%CUPMTR SIDE UPLO TRANS M-REF5794 N-REF5795 AP-REF5796 TAU-REF5797
                C-REF5798 LDC-REF5799 WORK-REF5800 INFO-REF5801))))

(CFFI:DEFCFUN ("dbbcsd_" %%DBBCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (JOBV2T :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (V2T :POINTER)
  (LDV2T :POINTER)
  (B11D :POINTER)
  (B11E :POINTER)
  (B12D :POINTER)
  (B12E :POINTER)
  (B21D :POINTER)
  (B21E :POINTER)
  (B22D :POINTER)
  (B22E :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DBBCSD
                   (JOBU1 JOBU2 JOBV1T JOBV2T TRANS M P Q THETA PHI U1 LDU1 U2
                    LDU2 V1T LDV1T V2T LDV2T B11D B11E B12D B12E B21D B21E B22D
                    B22E WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DBBCSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        V2T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B11D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B11E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B12D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B12E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B21D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B21E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B22D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B22E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5807 ':INT32) (P-REF5808 ':INT32)
                              (Q-REF5809 ':INT32) (LDU1-REF5813 ':INT32)
                              (LDU2-REF5815 ':INT32) (LDV1T-REF5817 ':INT32)
                              (LDV2T-REF5819 ':INT32) (LWORK-REF5829 ':INT32)
                              (INFO-REF5830 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5807 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5808 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5809 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF5813 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF5815 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF5817 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF5819 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5829 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5830 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF5810 THETA)
                                            (PHI-REF5811 PHI) (U1-REF5812 U1)
                                            (U2-REF5814 U2) (V1T-REF5816 V1T)
                                            (V2T-REF5818 V2T)
                                            (B11D-REF5820 B11D)
                                            (B11E-REF5821 B11E)
                                            (B12D-REF5822 B12D)
                                            (B12E-REF5823 B12E)
                                            (B21D-REF5824 B21D)
                                            (B21E-REF5825 B21E)
                                            (B22D-REF5826 B22D)
                                            (B22E-REF5827 B22E)
                                            (WORK-REF5828 WORK))
      (%%DBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF5807 P-REF5808 Q-REF5809
                THETA-REF5810 PHI-REF5811 U1-REF5812 LDU1-REF5813 U2-REF5814
                LDU2-REF5815 V1T-REF5816 LDV1T-REF5817 V2T-REF5818
                LDV2T-REF5819 B11D-REF5820 B11E-REF5821 B12D-REF5822
                B12E-REF5823 B21D-REF5824 B21E-REF5825 B22D-REF5826
                B22E-REF5827 WORK-REF5828 LWORK-REF5829 INFO-REF5830))))

(CFFI:DEFCFUN ("dbdsdc_" %%DBDSDC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (COMPQ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (Q :POINTER)
  (IQ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DBDSDC
                   (UPLO COMPQ N D E U LDU VT LDVT Q IQ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DBDSDC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5833 ':INT32) (LDU-REF5837 ':INT32)
                              (LDVT-REF5839 ':INT32) (INFO-REF5844 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5833 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF5837 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF5839 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5844 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5834 D) (E-REF5835 E)
                                            (U-REF5836 U) (VT-REF5838 VT)
                                            (Q-REF5840 Q) (IQ-REF5841 IQ)
                                            (WORK-REF5842 WORK)
                                            (IWORK-REF5843 IWORK))
      (%%DBDSDC UPLO COMPQ N-REF5833 D-REF5834 E-REF5835 U-REF5836 LDU-REF5837
                VT-REF5838 LDVT-REF5839 Q-REF5840 IQ-REF5841 WORK-REF5842
                IWORK-REF5843 INFO-REF5844))))

(CFFI:DEFCFUN ("dbdsqr_" %%DBDSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NCVT :POINTER)
  (NRU :POINTER)
  (NCC :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DBDSQR
                   (UPLO N NCVT NRU NCC D E VT LDVT U LDU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DBDSQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5846 ':INT32) (NCVT-REF5847 ':INT32)
                              (NRU-REF5848 ':INT32) (NCC-REF5849 ':INT32)
                              (LDVT-REF5853 ':INT32) (LDU-REF5855 ':INT32)
                              (LDC-REF5857 ':INT32) (INFO-REF5859 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5846 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF5847 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF5848 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF5849 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF5853 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF5855 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5857 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5859 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5850 D) (E-REF5851 E)
                                            (VT-REF5852 VT) (U-REF5854 U)
                                            (C-REF5856 C) (WORK-REF5858 WORK))
      (%%DBDSQR UPLO N-REF5846 NCVT-REF5847 NRU-REF5848 NCC-REF5849 D-REF5850
                E-REF5851 VT-REF5852 LDVT-REF5853 U-REF5854 LDU-REF5855
                C-REF5856 LDC-REF5857 WORK-REF5858 INFO-REF5859))))

(CFFI:DEFCFUN ("dbdsvdx_" %%DBDSVDX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (NS :POINTER)
  (S :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DBDSVDX
                   (UPLO JOBZ RANGE N D E VL VU IL IU NS S Z LDZ WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DBDSVDX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5863 ':INT32) (VL-REF5866 ':DOUBLE)
                              (VU-REF5867 ':DOUBLE) (IL-REF5868 ':INT32)
                              (IU-REF5869 ':INT32) (NS-REF5870 ':INT32)
                              (LDZ-REF5873 ':INT32) (INFO-REF5876 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5863 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF5866 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF5867 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF5868 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF5869 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF5870 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF5873 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5876 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5864 D) (E-REF5865 E)
                                            (S-REF5871 S) (Z-REF5872 Z)
                                            (WORK-REF5874 WORK)
                                            (IWORK-REF5875 IWORK))
      (%%DBDSVDX UPLO JOBZ RANGE N-REF5863 D-REF5864 E-REF5865 VL-REF5866
                 VU-REF5867 IL-REF5868 IU-REF5869 NS-REF5870 S-REF5871
                 Z-REF5872 LDZ-REF5873 WORK-REF5874 IWORK-REF5875
                 INFO-REF5876))))

(CFFI:DEFCFUN ("dcombssq_" %%DCOMBSSQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (V1 :POINTER)
  (V2 :POINTER))

(COMMON-LISP:DEFUN %DCOMBSSQ (V1 V2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DCOMBSSQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        V2))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V1-REF5877 V1) (V2-REF5878 V2))
      (%%DCOMBSSQ V1-REF5877 V2-REF5878))))

(CFFI:DEFCFUN ("ddisna_" %%DDISNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (SEP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DDISNA (JOB M N D SEP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DDISNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5880 ':INT32) (N-REF5881 ':INT32)
                              (INFO-REF5884 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5880 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5881 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5884 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5882 D) (SEP-REF5883 SEP))
      (%%DDISNA JOB M-REF5880 N-REF5881 D-REF5882 SEP-REF5883 INFO-REF5884))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%CLANSB %CLANSB %%CLANSP %CLANSP %%CLANSY %CLANSY
  %%CLANTB %CLANTB %%CLANTP %CLANTP %%CLANTR %CLANTR %%CLAPLL %CLAPLL %%CLAPMR
  %CLAPMR %%CLAPMT %CLAPMT %%CLAQGB %CLAQGB %%CLAQGE %CLAQGE %%CLAQHB %CLAQHB
  %%CLAQHE %CLAQHE %%CLAQHP %CLAQHP %%CLAQP2 %CLAQP2 %%CLAQPS %CLAQPS %%CLAQR0
  %CLAQR0 %%CLAQR1 %CLAQR1 %%CLAQR2 %CLAQR2 %%CLAQR3 %CLAQR3 %%CLAQR4 %CLAQR4
  %%CLAQR5 %CLAQR5 %%CLAQSB %CLAQSB %%CLAQSP %CLAQSP %%CLAQSY %CLAQSY %%CLAR1V
  %CLAR1V %%CLAR2V %CLAR2V %%CLARCM %CLARCM %%CLARF %CLARF %%CLARFB %CLARFB
  %%CLARFG %CLARFG %%CLARFGP %CLARFGP %%CLARFT %CLARFT %%CLARFX %CLARFX
  %%CLARFY %CLARFY %%CLARGV %CLARGV %%CLARNV %CLARNV %%CLARRV %CLARRV
  %%CLARSCL2 %CLARSCL2 %%CLARTG %CLARTG %%CLARTV %CLARTV %%CLARZ %CLARZ
  %%CLARZB %CLARZB %%CLARZT %CLARZT %%CLASCL %CLASCL %%CLASCL2 %CLASCL2
  %%CLASET %CLASET %%CLASR %CLASR %%CLASSQ %CLASSQ %%CLASWLQ %CLASWLQ %%CLASWP
  %CLASWP %%CLASYF %CLASYF %%CLASYF_AA %CLASYF_AA %%CLASYF_RK %CLASYF_RK
  %%CLASYF_ROOK %CLASYF_ROOK %%CLATBS %CLATBS %%CLATDF %CLATDF %%CLATPS %CLATPS
  %%CLATRD %CLATRD %%CLATRS %CLATRS %%CLATRZ %CLATRZ %%CLATSQR %CLATSQR
  %%CLAUU2 %CLAUU2 %%CLAUUM %CLAUUM %%CPBCON %CPBCON %%CPBEQU %CPBEQU %%CPBRFS
  %CPBRFS %%CPBSTF %CPBSTF %%CPBSV %CPBSV %%CPBSVX %CPBSVX %%CPBTF2 %CPBTF2
  %%CPBTRF %CPBTRF %%CPBTRS %CPBTRS %%CPFTRF %CPFTRF %%CPFTRI %CPFTRI %%CPFTRS
  %CPFTRS %%CPOCON %CPOCON %%CPOEQU %CPOEQU %%CPOEQUB %CPOEQUB %%CPORFS %CPORFS
  %%CPORFSX %CPORFSX %%CPOSV %CPOSV %%CPOSVX %CPOSVX %%CPOSVXX %CPOSVXX
  %%CPOTF2 %CPOTF2 %%CPOTRF %CPOTRF %%CPOTRF2 %CPOTRF2 %%CPOTRI %CPOTRI
  %%CPOTRS %CPOTRS %%CPPCON %CPPCON %%CPPEQU %CPPEQU %%CPPRFS %CPPRFS %%CPPSV
  %CPPSV %%CPPSVX %CPPSVX %%CPPTRF %CPPTRF %%CPPTRI %CPPTRI %%CPPTRS %CPPTRS
  %%CPSTF2 %CPSTF2 %%CPSTRF %CPSTRF %%CPTCON %CPTCON %%CPTEQR %CPTEQR %%CPTRFS
  %CPTRFS %%CPTSV %CPTSV %%CPTSVX %CPTSVX %%CPTTRF %CPTTRF %%CPTTRS %CPTTRS
  %%CPTTS2 %CPTTS2 %%CROT %CROT %%CSPCON %CSPCON %%CSPMV %CSPMV %%CSPR %CSPR
  %%CSPRFS %CSPRFS %%CSPSV %CSPSV %%CSPSVX %CSPSVX %%CSPTRF %CSPTRF %%CSPTRI
  %CSPTRI %%CSPTRS %CSPTRS %%CSRSCL %CSRSCL %%CSTEDC %CSTEDC %%CSTEGR %CSTEGR
  %%CSTEIN %CSTEIN %%CSTEMR %CSTEMR %%CSTEQR %CSTEQR %%CSYCON %CSYCON
  %%CSYCON_3 %CSYCON_3 %%CSYCON_ROOK %CSYCON_ROOK %%CSYCONV %CSYCONV %%CSYCONVF
  %CSYCONVF %%CSYCONVF_ROOK %CSYCONVF_ROOK %%CSYEQUB %CSYEQUB %%CSYMV %CSYMV
  %%CSYR %CSYR %%CSYRFS %CSYRFS %%CSYRFSX %CSYRFSX %%CSYSV %CSYSV %%CSYSV_AA
  %CSYSV_AA %%CSYSV_AA_2STAGE %CSYSV_AA_2STAGE %%CSYSV_RK %CSYSV_RK
  %%CSYSV_ROOK %CSYSV_ROOK %%CSYSVX %CSYSVX %%CSYSVXX %CSYSVXX %%CSYSWAPR
  %CSYSWAPR %%CSYTF2 %CSYTF2 %%CSYTF2_RK %CSYTF2_RK %%CSYTF2_ROOK %CSYTF2_ROOK
  %%CSYTRF %CSYTRF %%CSYTRF_AA %CSYTRF_AA %%CSYTRF_AA_2STAGE %CSYTRF_AA_2STAGE
  %%CSYTRF_RK %CSYTRF_RK %%CSYTRF_ROOK %CSYTRF_ROOK %%CSYTRI %CSYTRI %%CSYTRI2
  %CSYTRI2 %%CSYTRI2X %CSYTRI2X %%CSYTRI_3 %CSYTRI_3 %%CSYTRI_3X %CSYTRI_3X
  %%CSYTRI_ROOK %CSYTRI_ROOK %%CSYTRS %CSYTRS %%CSYTRS2 %CSYTRS2 %%CSYTRS_3
  %CSYTRS_3 %%CSYTRS_AA %CSYTRS_AA %%CSYTRS_AA_2STAGE %CSYTRS_AA_2STAGE
  %%CSYTRS_ROOK %CSYTRS_ROOK %%CTBCON %CTBCON %%CTBRFS %CTBRFS %%CTBTRS %CTBTRS
  %%CTFSM %CTFSM %%CTFTRI %CTFTRI %%CTFTTP %CTFTTP %%CTFTTR %CTFTTR %%CTGEVC
  %CTGEVC %%CTGEX2 %CTGEX2 %%CTGEXC %CTGEXC %%CTGSEN %CTGSEN %%CTGSJA %CTGSJA
  %%CTGSNA %CTGSNA %%CTGSY2 %CTGSY2 %%CTGSYL %CTGSYL %%CTPCON %CTPCON %%CTPLQT
  %CTPLQT %%CTPLQT2 %CTPLQT2 %%CTPMLQT %CTPMLQT %%CTPMQRT %CTPMQRT %%CTPQRT
  %CTPQRT %%CTPQRT2 %CTPQRT2 %%CTPRFB %CTPRFB %%CTPRFS %CTPRFS %%CTPTRI %CTPTRI
  %%CTPTRS %CTPTRS %%CTPTTF %CTPTTF %%CTPTTR %CTPTTR %%CTRCON %CTRCON %%CTREVC
  %CTREVC %%CTREVC3 %CTREVC3 %%CTREXC %CTREXC %%CTRRFS %CTRRFS %%CTRSEN %CTRSEN
  %%CTRSNA %CTRSNA %%CTRSYL %CTRSYL %%CTRTI2 %CTRTI2 %%CTRTRI %CTRTRI %%CTRTRS
  %CTRTRS %%CTRTTF %CTRTTF %%CTRTTP %CTRTTP %%CTZRZF %CTZRZF %%CUNBDB %CUNBDB
  %%CUNBDB1 %CUNBDB1 %%CUNBDB2 %CUNBDB2 %%CUNBDB3 %CUNBDB3 %%CUNBDB4 %CUNBDB4
  %%CUNBDB5 %CUNBDB5 %%CUNBDB6 %CUNBDB6 %%CUNCSD %CUNCSD %%CUNCSD2BY1
  %CUNCSD2BY1 %%CUNG2L %CUNG2L %%CUNG2R %CUNG2R %%CUNGBR %CUNGBR %%CUNGHR
  %CUNGHR %%CUNGL2 %CUNGL2 %%CUNGLQ %CUNGLQ %%CUNGQL %CUNGQL %%CUNGQR %CUNGQR
  %%CUNGR2 %CUNGR2 %%CUNGRQ %CUNGRQ %%CUNGTR %CUNGTR %%CUNM22 %CUNM22 %%CUNM2L
  %CUNM2L %%CUNM2R %CUNM2R %%CUNMBR %CUNMBR %%CUNMHR %CUNMHR %%CUNML2 %CUNML2
  %%CUNMLQ %CUNMLQ %%CUNMQL %CUNMQL %%CUNMQR %CUNMQR %%CUNMR2 %CUNMR2 %%CUNMR3
  %CUNMR3 %%CUNMRQ %CUNMRQ %%CUNMRZ %CUNMRZ %%CUNMTR %CUNMTR %%CUPGTR %CUPGTR
  %%CUPMTR %CUPMTR %%DBBCSD %DBBCSD %%DBDSDC %DBDSDC %%DBDSQR %DBDSQR %%DBDSVDX
  %DBDSVDX %%DCOMBSSQ %DCOMBSSQ %%DDISNA %DDISNA))

(COMMON-LISP:SETF (COMMON-LISP:GETF
                   (COMMON-LISP:SYMBOL-PLIST
                    'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
                   ':MAGICL)
                    '(("CLANSB" "clansb_" %%CLANSB %CLANSB)
                      ("CLANSP" "clansp_" %%CLANSP %CLANSP)
                      ("CLANSY" "clansy_" %%CLANSY %CLANSY)
                      ("CLANTB" "clantb_" %%CLANTB %CLANTB)
                      ("CLANTP" "clantp_" %%CLANTP %CLANTP)
                      ("CLANTR" "clantr_" %%CLANTR %CLANTR)
                      ("CLAPLL" "clapll_" %%CLAPLL %CLAPLL)
                      ("CLAPMR" "clapmr_" %%CLAPMR %CLAPMR)
                      ("CLAPMT" "clapmt_" %%CLAPMT %CLAPMT)
                      ("CLAQGB" "claqgb_" %%CLAQGB %CLAQGB)
                      ("CLAQGE" "claqge_" %%CLAQGE %CLAQGE)
                      ("CLAQHB" "claqhb_" %%CLAQHB %CLAQHB)
                      ("CLAQHE" "claqhe_" %%CLAQHE %CLAQHE)
                      ("CLAQHP" "claqhp_" %%CLAQHP %CLAQHP)
                      ("CLAQP2" "claqp2_" %%CLAQP2 %CLAQP2)
                      ("CLAQPS" "claqps_" %%CLAQPS %CLAQPS)
                      ("CLAQR0" "claqr0_" %%CLAQR0 %CLAQR0)
                      ("CLAQR1" "claqr1_" %%CLAQR1 %CLAQR1)
                      ("CLAQR2" "claqr2_" %%CLAQR2 %CLAQR2)
                      ("CLAQR3" "claqr3_" %%CLAQR3 %CLAQR3)
                      ("CLAQR4" "claqr4_" %%CLAQR4 %CLAQR4)
                      ("CLAQR5" "claqr5_" %%CLAQR5 %CLAQR5)
                      ("CLAQSB" "claqsb_" %%CLAQSB %CLAQSB)
                      ("CLAQSP" "claqsp_" %%CLAQSP %CLAQSP)
                      ("CLAQSY" "claqsy_" %%CLAQSY %CLAQSY)
                      ("CLAR1V" "clar1v_" %%CLAR1V %CLAR1V)
                      ("CLAR2V" "clar2v_" %%CLAR2V %CLAR2V)
                      ("CLARCM" "clarcm_" %%CLARCM %CLARCM)
                      ("CLARF" "clarf_" %%CLARF %CLARF)
                      ("CLARFB" "clarfb_" %%CLARFB %CLARFB)
                      ("CLARFG" "clarfg_" %%CLARFG %CLARFG)
                      ("CLARFGP" "clarfgp_" %%CLARFGP %CLARFGP)
                      ("CLARFT" "clarft_" %%CLARFT %CLARFT)
                      ("CLARFX" "clarfx_" %%CLARFX %CLARFX)
                      ("CLARFY" "clarfy_" %%CLARFY %CLARFY)
                      ("CLARGV" "clargv_" %%CLARGV %CLARGV)
                      ("CLARNV" "clarnv_" %%CLARNV %CLARNV)
                      ("CLARRV" "clarrv_" %%CLARRV %CLARRV)
                      ("CLARSCL2" "clarscl2_" %%CLARSCL2 %CLARSCL2)
                      ("CLARTG" "clartg_" %%CLARTG %CLARTG)
                      ("CLARTV" "clartv_" %%CLARTV %CLARTV)
                      ("CLARZ" "clarz_" %%CLARZ %CLARZ)
                      ("CLARZB" "clarzb_" %%CLARZB %CLARZB)
                      ("CLARZT" "clarzt_" %%CLARZT %CLARZT)
                      ("CLASCL" "clascl_" %%CLASCL %CLASCL)
                      ("CLASCL2" "clascl2_" %%CLASCL2 %CLASCL2)
                      ("CLASET" "claset_" %%CLASET %CLASET)
                      ("CLASR" "clasr_" %%CLASR %CLASR)
                      ("CLASSQ" "classq_" %%CLASSQ %CLASSQ)
                      ("CLASWLQ" "claswlq_" %%CLASWLQ %CLASWLQ)
                      ("CLASWP" "claswp_" %%CLASWP %CLASWP)
                      ("CLASYF" "clasyf_" %%CLASYF %CLASYF)
                      ("CLASYF_AA" "clasyf_aa_" %%CLASYF_AA %CLASYF_AA)
                      ("CLASYF_RK" "clasyf_rk_" %%CLASYF_RK %CLASYF_RK)
                      ("CLASYF_ROOK" "clasyf_rook_" %%CLASYF_ROOK %CLASYF_ROOK)
                      ("CLATBS" "clatbs_" %%CLATBS %CLATBS)
                      ("CLATDF" "clatdf_" %%CLATDF %CLATDF)
                      ("CLATPS" "clatps_" %%CLATPS %CLATPS)
                      ("CLATRD" "clatrd_" %%CLATRD %CLATRD)
                      ("CLATRS" "clatrs_" %%CLATRS %CLATRS)
                      ("CLATRZ" "clatrz_" %%CLATRZ %CLATRZ)
                      ("CLATSQR" "clatsqr_" %%CLATSQR %CLATSQR)
                      ("CLAUU2" "clauu2_" %%CLAUU2 %CLAUU2)
                      ("CLAUUM" "clauum_" %%CLAUUM %CLAUUM)
                      ("CPBCON" "cpbcon_" %%CPBCON %CPBCON)
                      ("CPBEQU" "cpbequ_" %%CPBEQU %CPBEQU)
                      ("CPBRFS" "cpbrfs_" %%CPBRFS %CPBRFS)
                      ("CPBSTF" "cpbstf_" %%CPBSTF %CPBSTF)
                      ("CPBSV" "cpbsv_" %%CPBSV %CPBSV)
                      ("CPBSVX" "cpbsvx_" %%CPBSVX %CPBSVX)
                      ("CPBTF2" "cpbtf2_" %%CPBTF2 %CPBTF2)
                      ("CPBTRF" "cpbtrf_" %%CPBTRF %CPBTRF)
                      ("CPBTRS" "cpbtrs_" %%CPBTRS %CPBTRS)
                      ("CPFTRF" "cpftrf_" %%CPFTRF %CPFTRF)
                      ("CPFTRI" "cpftri_" %%CPFTRI %CPFTRI)
                      ("CPFTRS" "cpftrs_" %%CPFTRS %CPFTRS)
                      ("CPOCON" "cpocon_" %%CPOCON %CPOCON)
                      ("CPOEQU" "cpoequ_" %%CPOEQU %CPOEQU)
                      ("CPOEQUB" "cpoequb_" %%CPOEQUB %CPOEQUB)
                      ("CPORFS" "cporfs_" %%CPORFS %CPORFS)
                      ("CPORFSX" "cporfsx_" %%CPORFSX %CPORFSX)
                      ("CPOSV" "cposv_" %%CPOSV %CPOSV)
                      ("CPOSVX" "cposvx_" %%CPOSVX %CPOSVX)
                      ("CPOSVXX" "cposvxx_" %%CPOSVXX %CPOSVXX)
                      ("CPOTF2" "cpotf2_" %%CPOTF2 %CPOTF2)
                      ("CPOTRF" "cpotrf_" %%CPOTRF %CPOTRF)
                      ("CPOTRF2" "cpotrf2_" %%CPOTRF2 %CPOTRF2)
                      ("CPOTRI" "cpotri_" %%CPOTRI %CPOTRI)
                      ("CPOTRS" "cpotrs_" %%CPOTRS %CPOTRS)
                      ("CPPCON" "cppcon_" %%CPPCON %CPPCON)
                      ("CPPEQU" "cppequ_" %%CPPEQU %CPPEQU)
                      ("CPPRFS" "cpprfs_" %%CPPRFS %CPPRFS)
                      ("CPPSV" "cppsv_" %%CPPSV %CPPSV)
                      ("CPPSVX" "cppsvx_" %%CPPSVX %CPPSVX)
                      ("CPPTRF" "cpptrf_" %%CPPTRF %CPPTRF)
                      ("CPPTRI" "cpptri_" %%CPPTRI %CPPTRI)
                      ("CPPTRS" "cpptrs_" %%CPPTRS %CPPTRS)
                      ("CPSTF2" "cpstf2_" %%CPSTF2 %CPSTF2)
                      ("CPSTRF" "cpstrf_" %%CPSTRF %CPSTRF)
                      ("CPTCON" "cptcon_" %%CPTCON %CPTCON)
                      ("CPTEQR" "cpteqr_" %%CPTEQR %CPTEQR)
                      ("CPTRFS" "cptrfs_" %%CPTRFS %CPTRFS)
                      ("CPTSV" "cptsv_" %%CPTSV %CPTSV)
                      ("CPTSVX" "cptsvx_" %%CPTSVX %CPTSVX)
                      ("CPTTRF" "cpttrf_" %%CPTTRF %CPTTRF)
                      ("CPTTRS" "cpttrs_" %%CPTTRS %CPTTRS)
                      ("CPTTS2" "cptts2_" %%CPTTS2 %CPTTS2)
                      ("CROT" "crot_" %%CROT %CROT)
                      ("CSPCON" "cspcon_" %%CSPCON %CSPCON)
                      ("CSPMV" "cspmv_" %%CSPMV %CSPMV)
                      ("CSPR" "cspr_" %%CSPR %CSPR)
                      ("CSPRFS" "csprfs_" %%CSPRFS %CSPRFS)
                      ("CSPSV" "cspsv_" %%CSPSV %CSPSV)
                      ("CSPSVX" "cspsvx_" %%CSPSVX %CSPSVX)
                      ("CSPTRF" "csptrf_" %%CSPTRF %CSPTRF)
                      ("CSPTRI" "csptri_" %%CSPTRI %CSPTRI)
                      ("CSPTRS" "csptrs_" %%CSPTRS %CSPTRS)
                      ("CSRSCL" "csrscl_" %%CSRSCL %CSRSCL)
                      ("CSTEDC" "cstedc_" %%CSTEDC %CSTEDC)
                      ("CSTEGR" "cstegr_" %%CSTEGR %CSTEGR)
                      ("CSTEIN" "cstein_" %%CSTEIN %CSTEIN)
                      ("CSTEMR" "cstemr_" %%CSTEMR %CSTEMR)
                      ("CSTEQR" "csteqr_" %%CSTEQR %CSTEQR)
                      ("CSYCON" "csycon_" %%CSYCON %CSYCON)
                      ("CSYCON_3" "csycon_3_" %%CSYCON_3 %CSYCON_3)
                      ("CSYCON_ROOK" "csycon_rook_" %%CSYCON_ROOK %CSYCON_ROOK)
                      ("CSYCONV" "csyconv_" %%CSYCONV %CSYCONV)
                      ("CSYCONVF" "csyconvf_" %%CSYCONVF %CSYCONVF)
                      ("CSYCONVF_ROOK" "csyconvf_rook_" %%CSYCONVF_ROOK
                       %CSYCONVF_ROOK)
                      ("CSYEQUB" "csyequb_" %%CSYEQUB %CSYEQUB)
                      ("CSYMV" "csymv_" %%CSYMV %CSYMV)
                      ("CSYR" "csyr_" %%CSYR %CSYR)
                      ("CSYRFS" "csyrfs_" %%CSYRFS %CSYRFS)
                      ("CSYRFSX" "csyrfsx_" %%CSYRFSX %CSYRFSX)
                      ("CSYSV" "csysv_" %%CSYSV %CSYSV)
                      ("CSYSV_AA" "csysv_aa_" %%CSYSV_AA %CSYSV_AA)
                      ("CSYSV_AA_2STAGE" "csysv_aa_2stage_" %%CSYSV_AA_2STAGE
                       %CSYSV_AA_2STAGE)
                      ("CSYSV_RK" "csysv_rk_" %%CSYSV_RK %CSYSV_RK)
                      ("CSYSV_ROOK" "csysv_rook_" %%CSYSV_ROOK %CSYSV_ROOK)
                      ("CSYSVX" "csysvx_" %%CSYSVX %CSYSVX)
                      ("CSYSVXX" "csysvxx_" %%CSYSVXX %CSYSVXX)
                      ("CSYSWAPR" "csyswapr_" %%CSYSWAPR %CSYSWAPR)
                      ("CSYTF2" "csytf2_" %%CSYTF2 %CSYTF2)
                      ("CSYTF2_RK" "csytf2_rk_" %%CSYTF2_RK %CSYTF2_RK)
                      ("CSYTF2_ROOK" "csytf2_rook_" %%CSYTF2_ROOK %CSYTF2_ROOK)
                      ("CSYTRF" "csytrf_" %%CSYTRF %CSYTRF)
                      ("CSYTRF_AA" "csytrf_aa_" %%CSYTRF_AA %CSYTRF_AA)
                      ("CSYTRF_AA_2STAGE" "csytrf_aa_2stage_"
                       %%CSYTRF_AA_2STAGE %CSYTRF_AA_2STAGE)
                      ("CSYTRF_RK" "csytrf_rk_" %%CSYTRF_RK %CSYTRF_RK)
                      ("CSYTRF_ROOK" "csytrf_rook_" %%CSYTRF_ROOK %CSYTRF_ROOK)
                      ("CSYTRI" "csytri_" %%CSYTRI %CSYTRI)
                      ("CSYTRI2" "csytri2_" %%CSYTRI2 %CSYTRI2)
                      ("CSYTRI2X" "csytri2x_" %%CSYTRI2X %CSYTRI2X)
                      ("CSYTRI_3" "csytri_3_" %%CSYTRI_3 %CSYTRI_3)
                      ("CSYTRI_3X" "csytri_3x_" %%CSYTRI_3X %CSYTRI_3X)
                      ("CSYTRI_ROOK" "csytri_rook_" %%CSYTRI_ROOK %CSYTRI_ROOK)
                      ("CSYTRS" "csytrs_" %%CSYTRS %CSYTRS)
                      ("CSYTRS2" "csytrs2_" %%CSYTRS2 %CSYTRS2)
                      ("CSYTRS_3" "csytrs_3_" %%CSYTRS_3 %CSYTRS_3)
                      ("CSYTRS_AA" "csytrs_aa_" %%CSYTRS_AA %CSYTRS_AA)
                      ("CSYTRS_AA_2STAGE" "csytrs_aa_2stage_"
                       %%CSYTRS_AA_2STAGE %CSYTRS_AA_2STAGE)
                      ("CSYTRS_ROOK" "csytrs_rook_" %%CSYTRS_ROOK %CSYTRS_ROOK)
                      ("CTBCON" "ctbcon_" %%CTBCON %CTBCON)
                      ("CTBRFS" "ctbrfs_" %%CTBRFS %CTBRFS)
                      ("CTBTRS" "ctbtrs_" %%CTBTRS %CTBTRS)
                      ("CTFSM" "ctfsm_" %%CTFSM %CTFSM)
                      ("CTFTRI" "ctftri_" %%CTFTRI %CTFTRI)
                      ("CTFTTP" "ctfttp_" %%CTFTTP %CTFTTP)
                      ("CTFTTR" "ctfttr_" %%CTFTTR %CTFTTR)
                      ("CTGEVC" "ctgevc_" %%CTGEVC %CTGEVC)
                      ("CTGEX2" "ctgex2_" %%CTGEX2 %CTGEX2)
                      ("CTGEXC" "ctgexc_" %%CTGEXC %CTGEXC)
                      ("CTGSEN" "ctgsen_" %%CTGSEN %CTGSEN)
                      ("CTGSJA" "ctgsja_" %%CTGSJA %CTGSJA)
                      ("CTGSNA" "ctgsna_" %%CTGSNA %CTGSNA)
                      ("CTGSY2" "ctgsy2_" %%CTGSY2 %CTGSY2)
                      ("CTGSYL" "ctgsyl_" %%CTGSYL %CTGSYL)
                      ("CTPCON" "ctpcon_" %%CTPCON %CTPCON)
                      ("CTPLQT" "ctplqt_" %%CTPLQT %CTPLQT)
                      ("CTPLQT2" "ctplqt2_" %%CTPLQT2 %CTPLQT2)
                      ("CTPMLQT" "ctpmlqt_" %%CTPMLQT %CTPMLQT)
                      ("CTPMQRT" "ctpmqrt_" %%CTPMQRT %CTPMQRT)
                      ("CTPQRT" "ctpqrt_" %%CTPQRT %CTPQRT)
                      ("CTPQRT2" "ctpqrt2_" %%CTPQRT2 %CTPQRT2)
                      ("CTPRFB" "ctprfb_" %%CTPRFB %CTPRFB)
                      ("CTPRFS" "ctprfs_" %%CTPRFS %CTPRFS)
                      ("CTPTRI" "ctptri_" %%CTPTRI %CTPTRI)
                      ("CTPTRS" "ctptrs_" %%CTPTRS %CTPTRS)
                      ("CTPTTF" "ctpttf_" %%CTPTTF %CTPTTF)
                      ("CTPTTR" "ctpttr_" %%CTPTTR %CTPTTR)
                      ("CTRCON" "ctrcon_" %%CTRCON %CTRCON)
                      ("CTREVC" "ctrevc_" %%CTREVC %CTREVC)
                      ("CTREVC3" "ctrevc3_" %%CTREVC3 %CTREVC3)
                      ("CTREXC" "ctrexc_" %%CTREXC %CTREXC)
                      ("CTRRFS" "ctrrfs_" %%CTRRFS %CTRRFS)
                      ("CTRSEN" "ctrsen_" %%CTRSEN %CTRSEN)
                      ("CTRSNA" "ctrsna_" %%CTRSNA %CTRSNA)
                      ("CTRSYL" "ctrsyl_" %%CTRSYL %CTRSYL)
                      ("CTRTI2" "ctrti2_" %%CTRTI2 %CTRTI2)
                      ("CTRTRI" "ctrtri_" %%CTRTRI %CTRTRI)
                      ("CTRTRS" "ctrtrs_" %%CTRTRS %CTRTRS)
                      ("CTRTTF" "ctrttf_" %%CTRTTF %CTRTTF)
                      ("CTRTTP" "ctrttp_" %%CTRTTP %CTRTTP)
                      ("CTZRZF" "ctzrzf_" %%CTZRZF %CTZRZF)
                      ("CUNBDB" "cunbdb_" %%CUNBDB %CUNBDB)
                      ("CUNBDB1" "cunbdb1_" %%CUNBDB1 %CUNBDB1)
                      ("CUNBDB2" "cunbdb2_" %%CUNBDB2 %CUNBDB2)
                      ("CUNBDB3" "cunbdb3_" %%CUNBDB3 %CUNBDB3)
                      ("CUNBDB4" "cunbdb4_" %%CUNBDB4 %CUNBDB4)
                      ("CUNBDB5" "cunbdb5_" %%CUNBDB5 %CUNBDB5)
                      ("CUNBDB6" "cunbdb6_" %%CUNBDB6 %CUNBDB6)
                      ("CUNCSD" "cuncsd_" %%CUNCSD %CUNCSD)
                      ("CUNCSD2BY1" "cuncsd2by1_" %%CUNCSD2BY1 %CUNCSD2BY1)
                      ("CUNG2L" "cung2l_" %%CUNG2L %CUNG2L)
                      ("CUNG2R" "cung2r_" %%CUNG2R %CUNG2R)
                      ("CUNGBR" "cungbr_" %%CUNGBR %CUNGBR)
                      ("CUNGHR" "cunghr_" %%CUNGHR %CUNGHR)
                      ("CUNGL2" "cungl2_" %%CUNGL2 %CUNGL2)
                      ("CUNGLQ" "cunglq_" %%CUNGLQ %CUNGLQ)
                      ("CUNGQL" "cungql_" %%CUNGQL %CUNGQL)
                      ("CUNGQR" "cungqr_" %%CUNGQR %CUNGQR)
                      ("CUNGR2" "cungr2_" %%CUNGR2 %CUNGR2)
                      ("CUNGRQ" "cungrq_" %%CUNGRQ %CUNGRQ)
                      ("CUNGTR" "cungtr_" %%CUNGTR %CUNGTR)
                      ("CUNM22" "cunm22_" %%CUNM22 %CUNM22)
                      ("CUNM2L" "cunm2l_" %%CUNM2L %CUNM2L)
                      ("CUNM2R" "cunm2r_" %%CUNM2R %CUNM2R)
                      ("CUNMBR" "cunmbr_" %%CUNMBR %CUNMBR)
                      ("CUNMHR" "cunmhr_" %%CUNMHR %CUNMHR)
                      ("CUNML2" "cunml2_" %%CUNML2 %CUNML2)
                      ("CUNMLQ" "cunmlq_" %%CUNMLQ %CUNMLQ)
                      ("CUNMQL" "cunmql_" %%CUNMQL %CUNMQL)
                      ("CUNMQR" "cunmqr_" %%CUNMQR %CUNMQR)
                      ("CUNMR2" "cunmr2_" %%CUNMR2 %CUNMR2)
                      ("CUNMR3" "cunmr3_" %%CUNMR3 %CUNMR3)
                      ("CUNMRQ" "cunmrq_" %%CUNMRQ %CUNMRQ)
                      ("CUNMRZ" "cunmrz_" %%CUNMRZ %CUNMRZ)
                      ("CUNMTR" "cunmtr_" %%CUNMTR %CUNMTR)
                      ("CUPGTR" "cupgtr_" %%CUPGTR %CUPGTR)
                      ("CUPMTR" "cupmtr_" %%CUPMTR %CUPMTR)
                      ("DBBCSD" "dbbcsd_" %%DBBCSD %DBBCSD)
                      ("DBDSDC" "dbdsdc_" %%DBDSDC %DBDSDC)
                      ("DBDSQR" "dbdsqr_" %%DBDSQR %DBDSQR)
                      ("DBDSVDX" "dbdsvdx_" %%DBDSVDX %DBDSVDX)
                      ("DCOMBSSQ" "dcombssq_" %%DCOMBSSQ %DCOMBSSQ)
                      ("DDISNA" "ddisna_" %%DDISNA %DDISNA)))

(COMMON-LISP:EXPORT
 '(%CLANSB %CLANSP %CLANSY %CLANTB %CLANTP %CLANTR %CLAPLL %CLAPMR %CLAPMT
           %CLAQGB %CLAQGE %CLAQHB %CLAQHE %CLAQHP %CLAQP2 %CLAQPS %CLAQR0
           %CLAQR1 %CLAQR2 %CLAQR3 %CLAQR4 %CLAQR5 %CLAQSB %CLAQSP %CLAQSY
           %CLAR1V %CLAR2V %CLARCM %CLARF %CLARFB %CLARFG %CLARFGP %CLARFT
           %CLARFX %CLARFY %CLARGV %CLARNV %CLARRV %CLARSCL2 %CLARTG %CLARTV
           %CLARZ %CLARZB %CLARZT %CLASCL %CLASCL2 %CLASET %CLASR %CLASSQ
           %CLASWLQ %CLASWP %CLASYF %CLASYF_AA %CLASYF_RK %CLASYF_ROOK %CLATBS
           %CLATDF %CLATPS %CLATRD %CLATRS %CLATRZ %CLATSQR %CLAUU2 %CLAUUM
           %CPBCON %CPBEQU %CPBRFS %CPBSTF %CPBSV %CPBSVX %CPBTF2 %CPBTRF
           %CPBTRS %CPFTRF %CPFTRI %CPFTRS %CPOCON %CPOEQU %CPOEQUB %CPORFS
           %CPORFSX %CPOSV %CPOSVX %CPOSVXX %CPOTF2 %CPOTRF %CPOTRF2 %CPOTRI
           %CPOTRS %CPPCON %CPPEQU %CPPRFS %CPPSV %CPPSVX %CPPTRF %CPPTRI
           %CPPTRS %CPSTF2 %CPSTRF %CPTCON %CPTEQR %CPTRFS %CPTSV %CPTSVX
           %CPTTRF %CPTTRS %CPTTS2 %CROT %CSPCON %CSPMV %CSPR %CSPRFS %CSPSV
           %CSPSVX %CSPTRF %CSPTRI %CSPTRS %CSRSCL %CSTEDC %CSTEGR %CSTEIN
           %CSTEMR %CSTEQR %CSYCON %CSYCON_3 %CSYCON_ROOK %CSYCONV %CSYCONVF
           %CSYCONVF_ROOK %CSYEQUB %CSYMV %CSYR %CSYRFS %CSYRFSX %CSYSV
           %CSYSV_AA %CSYSV_AA_2STAGE %CSYSV_RK %CSYSV_ROOK %CSYSVX %CSYSVXX
           %CSYSWAPR %CSYTF2 %CSYTF2_RK %CSYTF2_ROOK %CSYTRF %CSYTRF_AA
           %CSYTRF_AA_2STAGE %CSYTRF_RK %CSYTRF_ROOK %CSYTRI %CSYTRI2 %CSYTRI2X
           %CSYTRI_3 %CSYTRI_3X %CSYTRI_ROOK %CSYTRS %CSYTRS2 %CSYTRS_3
           %CSYTRS_AA %CSYTRS_AA_2STAGE %CSYTRS_ROOK %CTBCON %CTBRFS %CTBTRS
           %CTFSM %CTFTRI %CTFTTP %CTFTTR %CTGEVC %CTGEX2 %CTGEXC %CTGSEN
           %CTGSJA %CTGSNA %CTGSY2 %CTGSYL %CTPCON %CTPLQT %CTPLQT2 %CTPMLQT
           %CTPMQRT %CTPQRT %CTPQRT2 %CTPRFB %CTPRFS %CTPTRI %CTPTRS %CTPTTF
           %CTPTTR %CTRCON %CTREVC %CTREVC3 %CTREXC %CTRRFS %CTRSEN %CTRSNA
           %CTRSYL %CTRTI2 %CTRTRI %CTRTRS %CTRTTF %CTRTTP %CTZRZF %CUNBDB
           %CUNBDB1 %CUNBDB2 %CUNBDB3 %CUNBDB4 %CUNBDB5 %CUNBDB6 %CUNCSD
           %CUNCSD2BY1 %CUNG2L %CUNG2R %CUNGBR %CUNGHR %CUNGL2 %CUNGLQ %CUNGQL
           %CUNGQR %CUNGR2 %CUNGRQ %CUNGTR %CUNM22 %CUNM2L %CUNM2R %CUNMBR
           %CUNMHR %CUNML2 %CUNMLQ %CUNMQL %CUNMQR %CUNMR2 %CUNMR3 %CUNMRQ
           %CUNMRZ %CUNMTR %CUPGTR %CUPMTR %DBBCSD %DBDSDC %DBDSQR %DBDSVDX
           %DCOMBSSQ %DDISNA)
 '#:MAGICL.LAPACK-CFFI)

;;; End of file.
